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fischertechnik computing Plotter/Scanner 


Dear friend of fischertechnik, 


there is hardly any other technical instrument which 
is as versatile in application as a computer. One of 
the most fascinating fields of computer technology, 
however, is the control of technical models. Buying 
the fischertechnik computing kit PLOTTER/SCAN- 
NER you not only acquired a model but also a fully 
operative peripheral unit for your computer. This is 
possible on account of a skilful utilization of precise 
components but also on account of special parts like 
e.g. the two stepping motors. And yet you do not 
have to be limited due to the advantages of a con- 
struction kit: during assembly and upon application 
you will see what way and manner the device func- 
tions. 

By means of the plotter you can prepare drafts, 
designs, mathematical functions, diagrams and 
measuring data. This is simplified by a graduated 
software concept leading you from the first steps of 
the stepping motor via elementary subroutines of a 
plotter to user programs of versatile applicability. 
Even an entire library of characters for lettering of 
drawings is at your disposition. The software has 


been explained; at each step you may extend orcon- 
vert the software according to your own ideas. 
Apart from purely technical applications, the 
aesthetics of computer graphics must not be 
neglected. Fantastic graphs can be drawn by means 
of the plotter, and on top of it all the plotter can be 
converted to a scanner by a few manipulations only. 
Whereas the plotter is an output device, i.e. data 
existing in the computer is committed to paper 
”externally”, the scanner is an input device. In this 
not commonly known configuration, the writing 
mechanism of the plotter is substituted by a record- 
ing head by means of which the gray scales of the 
original are read. Hence the flow of information goes 
from the original to the computer. 

The software of the scanner is future-oriented. The 
methods of digital recording of images and their eva- 
luation are discussed. The question is within which 
shortest period of time a computer program might 
recognize again an object shown only once. Thus, 
question of robotics are refered to. You can think 
yourselves into the recording head of the scanner 
regarding it as a robot exploring its environment. An 
advantage which cannot be contradicted: with a few 


strokes you can have a sketch of the environment of 
the robot on paper which has been inserted beneath 
the recording head. 

There are still a lot of other applications which may 
be realized by means of the plotter/scanner. What 
about a CNC drilling machine? Or a X-Y-coordinate 
table? You may tackle these projects, too, because 
whatever may still be missing for the realization of 
your individual application, it may easily be supple- 
mented out of the large program of fischertechnik. 
Of course, all parts are matching and can be arbitrar- 
ily combined. 

| am convinced that the fischertechnik computing 
plotter/scanner will motivate you to perform quite a 
series of your own further experiments and will 
increase your knowledge and experience in this field 
considerably. 


Yours faithfully, 


Maw fide 


Control of the stepping motors 


One of the most important components of the plot- 
ter/scanner are the two stepping motors for driving 
the two axles. Stepping motors differ principally from 
the D.C. motors with which perhaps you might be 
more familiar. D.C. motors are e.g. the three fischer- 
technik motors, the 6-V-motor, the mini-motor and 
the S-type motor. These D.C. motors — as defined by 
the name — only need direct voltage for operation. 
Such direct voltage may be supplied by batteries or 
a power pack. In most cases, there will be still a 
switch between the power pack and the motor. In 
that way the supply voltage can be switched off and 
on by the switch. In addition, for some types of 
switches it is possible to choose the polarity of the 
voltage for controlling the sense of rotation of the 
motor. In our case, the switch is formed by the 
fischertechnik computing interface as we intend to 
control the models by means of a computer. 


Compared to such operation of D.C. motors, there 
are some differences when using stepping motors. 
The first difference you will observe, compared to 
D.C. motors, is that the stepping motor is provided 
with four instead of two connections. The stepping 
motor is equipped with two magnet systems which 
are controlled independently from each other. Fig. 1 
shows a schematic graph of a stepping motor. The 
two magnet systems are staggered by 90 degree. 
A permanent magnet has been arranged between 
the magnetic poles which is connected to the motor 
shaft. In order to simplifiy matters, the latter has been 
shown in the figure as a compass needle. This com- 
pass needle will now take a position according tothe 
magnetic field of the two coils. Take one stepping 
motor out of the kit and fix it in the small supporting 
bracket. In this way and manner you can observe the 
motor without problems. Now hook up the stepping 
motor to the interface. For this purpose you connect 
the red and the black strand of the stepping motor to 
M1. Hence, the output M1 supplies the magnetic sys- 
tem 1 of the stepping motor. The green and the grey 
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strand of the stepping motor are connected to M2, so 
that the magnetic system 2 is supplied via M2. The 
colour-coded flat strip cable serves for connection 
to the interface. One end of the cable has been 
equipped with a 20-pole plug which is plugged into 
the interface. With the cable leaving the interface to 
the right side, the lowest core of the cable will be 
brown and the topmost black. All colours, however, 
occur twice, in the following denoted e.g. as red 1 
and red 2. From below upwards numbering is effect- 
ed in the order: brown 1, red 1,... black 1, brown 2,... 
black 2. You will find M1 on the cables orange 2-yel- 
low 2, M2 ongreen 2-blue 2. Provide these fourcores 
- as described later in details — with four fischer- 
technik plugs. Here again the cable connections 
according to colours: 


interface orange 2 — stepping motor red 
interface yellow 2 - stepping motor black 
interface green 2. - stepping motor green 
interface blue 2 stepping motor grey 


Fig. 1 
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M1,RECHTS M1, LINKS 
M1,CW M1,CCW 

- + 

+ + 
M2, RECHTS M2,RECHTS 
M2,CW M2,CW 
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Important: Interface and plotter must be supplied 
from a power unit of sufficient capacity. We recom- 
mend the fischertechnik computing power unit, 
which can provide up to 2 amps of current at the 
correct voltage. Optionally, the supply may also be 
effected by means of two power units, supplying 
1 amp each. 


Now load the diagnostic routine from the fischer- 
technik floppy disk or cassette. In case you should 
not yet be acquainted with this program: it serves for 
controlling directly by the computer keyboard all 
outputs of the interface. Moreover, all inputs are 
monitored and displayed on the screen. The latter is 
not yet required for the time being. Select output M1 
by actuation of key ”1”. It is indicated in inverse 
character font. Subsequently press the key as 
shown in the menue so that M1 is switched in "clock- 
wise” pole direction. Now you select output M2 by 
actuation of key ”2”. By pressing the appropriate key, 
the same pole direction is achieved as for M1. 


- + 
M1, LINKS M1, RECHTS 
M1,CCW M1,CW 
M2,LINKS M2,LINKS 
M2,CCW M2, CCW 
+ + 
c d 


Contrary to D.C. motors, the stepping motor does not 
start running when applying the operating voltage. 
Perhaps, you will only note alittle jerk ofthe stepping 
motor but now the stepping motor keeps the motor 
shaft in its position by applying an astonishing force. 
In order to understand this behaviour we again 
should have a look at the model of the stepping 
motor of fig. 1a. By the currents of M1 and M2 a 
magnetic field is generated in the stepping motor in 
which the two north-poles are at the bottom side and 
the two south-poles at the upper side. Hereby, the 
motor shaft with the compass needle adjusts in a 
way that the north-pole points between the two 
south-poles pulling with united strength. Corre- 
spondingly, the south-pole of the compass needle is 
attracted by the two north-poles on the left. Just to 
remember physics at school: different magnetic 
poles attract each other, equal magnetic poles are 
repelling each other. 
In order to move the motor we alter the pattern of the 
magnetic fields generated by M1 and M2. Switch the 
outputs M1 and M2 in the following order: 

M1 counter-clockwise 

M2 counter-clockwise 

M1 clockwise 

M2. clockwise 


In doing this observe the shaft of the stepping motor. 
At each change of pole direction it will continue to 
turn a little bit. Fig. 1b through 1d show the interrela- 
tion between the pole directions and the posi- 
tionings of the shaft. It should be said on this occa- 
sion that the stepping motor does not perform any 
quarter turns as may perhaps be assumed on 
account of the drawing. In reality, the magnetic 
systems of the stepping motor are provided with a 
higher pole number so that the stepping motor per- 
forms steps of 7.5 degree. Thus, after four steps, the 
initial position is reached again from the electrical 
point of view, whereas a full rotation is achieved after 
48 steps only. 


Since it is laborious to steadily change the pole 
direction of the two motor outputs by hand, it is sim- 
pler to have the same performed by computer pro- 
gram. The STEP program later in this manual con- 
trols the stepping motor. You may choose whether 
the next step of the motor should be performed upon 
actuation of a key or after a predetermined period of 
time. 

The program also shows the great advantage of 
stepping motors. By detailed recording of the indivi- 
dually generated steps the position of the stepping 
motor respectively of the driven mechanisms can be 
recognized at any time. Consequently, no additional 
position indicators are required, as in case of D.C. 
motors. It is exactly this characteristic which has 
made stepping motors so popular in computer-con- 
trolled appliances of all kinds. Perhaps, your com- 
puter installation is already equipped with the one or 
the other stepping motor. The drive of read/write- 
heads of floppy disk drives, of the matrix printing 
head and the paper feed of the printer are effected 
by stepping motors. Add to this the write head con- 
trol of the fischertechnik computing plotter. 


Interface and software 


We should start with a brief remark regarding the 
documentation of the programs for fischertechnik 
computing. In the instruction manual the programs 
have been printed in the notation of Commodore 64. 
With the appropriate interface for your computer, 
a floppy disk or cassette is delivered which also 
includes the programs. The BASIC notations of the 
various computers differ slightly. If you should not 
own a Commodore 64 but another type of computer, 
the program on the floppy disk or cassette will not 
exactly coincide with the program printed here. It 
has already been adapted to the respective type of 


computer. Those points in which deviations will 
occur at any rate, are marked by an asterisk at the 
beginning of the respective line in the print of the 
program. If you now want to compare the printed pro- 
gram with the program read in you must pay special 
attention when an asterisk appears. The instructions 
for the interface will give you further advice and 
assistance for adapting the programs. 

The instruction manual of the interface also includes 
an explanation as to how the signals of the interface 
are processed resp. generated by BASIC. It should 
be mentioned that the control of an output is effected 
by calling in a machine language program. The cal- 
ling parameter is composed by the number of the 
output M1, M2, M3 or M4 and the operational mode 
CW (clockwise), CCW (counter-clockwise) or OFF. 
Some examples are: 


* SYS M1,CW 
* SYS M3,CCW 
* SYS M4,OFF 


First of all, however, the command 
* SYS INIT 


has to be given bringing the interface into an initial 
state. Simultaneously, all motors are switched off so 
that this command may serve for a simultaneous 
switch-off of all motors, too. The inputs of the inter- 
face are operated by the USR-function. By the para- 
meters E1 through E8, the eight inputs are interro- 
gated to which the microswitches are connected. 
Other ON-OFF-signals may be put in here, too. 
The functions USR(EX) and USR(EY), however, serve 
for the input of gradually variable electrical values. 
Input EY will be used later for interrogation of the 
photoresistor in the recording head. 

It is also important to know that the interface incor- 
porates a monitoring circuit for data transfer. If within 
half a second no new command - either output or 
input command - should be given, all motors will be 
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switched off by this circuit. When stopping the 
computer program you thus need not switch off the 
power supply of the motors. When the transfer of 
data is initiated again, the interface will operate all 
motors again as before. 

The machine language program effecting the data 
transfer between computer and interface must also 
be stored in the computer. The so-called driver rou- 
tine serves for this purpose which is also included in 
the floppy disk resp. cassette. As well, it is a part of 
any other fischertechnik computing program occu- 
pying the line numbers 1 through 500. The driver 
routine is documented in the instructions for your 
interface. In the program lists of this instruction, this 
part, however, will not appear as it will differ accord- 
ing to the type of computer concerned. The machine 
language program must fit in all details to the struc- 
ture of the hard and software of the computer. 

If you do not use a fischertechnik computing inter- 
face but another interface circuit, the information 
given hitherto will not apply in every detail. Anyhow, 
the ideas outlined above can be realized with any 
other appropriate hardware. 


Set up of the plotter 


Refer to the main manual to see how to assemble the 
complete plotter. Take to pieces the test assembly 
for the motor and set up the plotter. Having complet- 
ed the mechanical assembly ofthe plotter, check the 
two driving shafts again for easy-running. Subse- 
quently, the model is connected at the interface. In 
this respect, refer to the scheme for the flat ribbon 
cable on the following pages, fig. 2. Bear in mind that 
the cut-off sections of the main cable are still needed 
for further connections. Now the cable ends are 
carefully installed over a length of approx. 3 to5 mm 
without damaging the fine cores of the strand. The 
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cores are then twisted. Loosen the small screw of the 
fischertechnik plug and insert the end of the cable 
into the sleeve. Now the screw is tightened again but 
not too much in order to avoid that the cable is 
squeezed off (fig. 3). You may perform the continuity 
check of the connection cables by means of the set- 
up of fig. 4, while the main cable should be tested 
using the diagnostic routine. Connect the lamp suc- 
cessively to all outputs M1 to M4 and switch on the 
output. The lamp should be lit. The digital inputs E1 
through E8, on the other hand, are checked by con- 
necting a switch between +5V and the respective 
input line. In a similar way and manner you proceed 
with the two analog inputs EX and EY with the excep- 
tion that in this case you make use of the photoresis- 
tor. Direct the latter against a light source and the 
program will indicate low numerical values. Cover it 
with your hand and the numerical values will in- 
crease. 

For wiring please strictly adhere to the scheme and 
the photo showing the ready wired model. If the 
cable cores are interchanged by mistake, the soft- 
ware will surely not operate correctly and in case of 
false lengths of the cables the free motion of the plot- 
ter might be restricted. 

The acrylic glass plate serving as paper table has 
been marked with a positioning guide for a correct 
centering of the drawing paper. A paper of size DIN- 
A-4 (approx. letter size) on that plate will be covered 
over its whole area by the plotter. The paper may 
easily be held in place by some pieces of adhesive 
tape. A good advice to conclude with: as the base 
plate of the plotter is transparent, you may place the 
plotter also onto a daylight projector and plot live 
onto transparent foil by means of fibre pens. 


Control of the plotter 


In the preceding section we have explained how to 
control the stepping motor. The plotter is equipped 
with two stepping motors moving independently the 
x- and y-axis. It would be only natural to adapt the 
switching sequence, valid for one motor, to two 
motors. But this is easier said than done. With its two 
coil systems each motor occupies two outputs of the 
interface. Hence the drive of the plotter already fully 
utilizes the interface. And now the electromagnet of 
the writing pen has still to be added... 

We can cope with this problem by trick: the first coil 
system of the two stepping motors each is connect- 
ed at output M1. The second coil system of the 
x-motor is connected at output M2 and the second 
coil system of the y-motor at output M3, leaving out- 
put M4 free for connection of the writing pen. The 
disadvantage we have to accept for this free output: 
the stepping motors can no longer be controlled 
independently from each other. If e.g. avertical lineis 
to be drawn, i.e. only the y-motor is to be driven, it will 
be subjected to the following switching sequence: 


M1 M3 
1 CW CW 
2 CCW CW 
3 CCW CCW 
4 CW CCW 
5 CW CW etc. 


At the same time the output M2 for the x-motor 
remains unaltered at pole direction clockwise. As, 
however, M1 is also connected at the x-motor, the 
x-motor is subjected to the following switching 
sequence during y-movement: 


M1 M2 
1 CW CW 
2 CCW CW 
3 CCW CW 
4 CW CW 
5 CW CW etc. 
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When passing from 1 to 2, the x-motor will perform a 
step. Idem, it will perform a step when passing from 3 
to 4, but in the opposed direction. You may convince 
yourself of this fact by looking at fig. 1a through 1d. 
On the whole, the ”uninterested” motor will perform 
one step only (by moving to and fro). Hereby, how- 
ever, the accuracy of the drawing is not impaired as 
one step alone does not yet lead to a significant 
advance but is compensated for by the required 
allowance of the plotter. We only should take care in 
programming that we do not accumulate those 
steps. Therefore the programs are written in a way 
that they call in only multiples of four consecutive 
steps which we will call plotter steps. What is the 
size of one plotter step or rather which resolution 
may be achieved with the plotter? Twelve plotter 
steps effect one revolution of the plotter spindle and 
hence a displacement of 1.5 mm * tt. Consequently 
one plotter step is equivalent to a distance of 
0.3927 mm or approx. 0.015”. 

On such basis, the subroutines have been written 
controlling the motors according to the direction of 
the axes. This leads to a total of four cases: 


positive x-direction (to the right) 
subroutine from line 50.000 onwards 
negative x-direction (to the left) 
subroutine from line 51.000 onwards 
positive y-direction (upwards) 
subroutine from line 52.000 onwards 
negative y-direction (downwards) 
subroutine from line 53.000 onwards 


Apart from the movements in axial directions, the 
plotter may also draw diagonals. In such case, the x- 
and y-motor will operate simultaneously. Again, we 
can differ between four cases, depending on the 
direction of movement of the two motors: 


positive x- and positive y-direction 
(to the right and upwards) 
subroutine from line 54.000 onwards 


negative x- and positive y-direction 
(to the left and upwards) 

subroutine from line 56.000 onwards 
negative x- and negative y-direction 
(to the left and downwards) 
subroutine from line 57.000 onwards 
positive x- and negative y-direction 
(to the right and downwards) 
subroutine from line 55.000 onwards 


Any and all more complicated movements can be 
derived from these eight basic movements. It exists 
e.g. a Subroutine for drawing straight lines between 
any optional points on the drawing paper. In such 
case, it has to be determined first of all which of the 
motors has to travel the longer distance. This motor 
operates permanently. The motor with the shorter 
distance is controlled to effect either no or a 
diagonal step as per requirements. The steps are 
distributed so that the drawn line is never too much 
away from the ideal line of connection (cf. fig. 5). For 
this purpose, the gradient of the distance is com- 
puted. At each step of the motor permanently ope- 
rating the value of the gradient is summed up. As 
soon as the value 1 is exceeded the counter is reset 
and a diagonal impulse is generated. 


Fig. 5 
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Plotter software 


In order not to lose track of all plotter subroutines, we 
shall classify them according to a scheme. For this 
purpose we avail ourselves of the shell structure 
frequently used in the development of software in 
which one subroutine shell is placed around the 
next one like the skins of an onion, as shown in fig. 6 
below. The internal core is formed by the hardware, 
i.e. the computer with screen and floppy disk or cas- 
sette station, the interface and the plotter. This core 
is surrounded by shell No. 1 being the operating 
system of your computer, i.e. that program enabling 
your computer to understand BASIC. Shell No. 2 
holds the driver routine mentioned already above 
with generation of all the interface commands. The 
subsequent shell No. 3 includes the control of the 
stepping motors and of the writing pen magnet as 
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well as the interrogation of the limit keys. The tasks 
of shell No. 4 are even more complex. It includes the 
above mentioned program for drawing a straight 
line; moreover, it includes quite a series of further 
useful subroutines which we shall discuss below. 
Now we come to shell No. 5. These subroutines 
include the so-called plotter tools. In software engi- 
neering such programs are defined as tools which 
are performing comprehensive and frequently 
repeated jobs. In this case, it concerns the drawing 
of coordinate axes, rectangulars and circles. Also 
this item will be discussed later on in this text. 

The ultimate shell represents the user program i.e. 
you are writing. To assist you in the beginning, we 
have provided you with three examples of user pro- 
grams. The essence of this shell structure is that 
subroutine calls should always be effected from the 
outside to the inside only. On basis of this know- 
ledge, you can specifically remove those shells you 
do not need when developing own programs and 
can supplement other subroutines. 

Back to shell No. 4: As routines of shell No. 4 the fol- 
lowing subroutines are defined in program PLOT: 


HOME 


Parameter: none 
Subroutine entry line: 40000 


Function: Moves the plotter into the physical origin 
of coordinates, in which case the writing pen is lifted. 
The two stepping motors are actuated until the two 
limit keys react. Hereafter, the plotter will run back to 
the drawing area until the limit keys are no longer 
actuated. Add to this two extra steps so that nowa 
safe distance from stop is ensured. Finally a series of 
flags are set to zero and, amongst others, zero of the 
coordinate system is stipulated at its present posi- 
tion. 

This command is typically the first command before 
all other plotter commands. It is recommended also 
as last command as by this command the writing pen 
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is lifted, the plotting head moved to the outer edge 
and the paper released. 


LINE 


Parameter: X and Y 

Subroutine entry line: 44000 

Function: The program draws a line from the present 
position of the plotter to the point identified by X and 
Y. The writing pen is lowered for drawing. 


RLINE 


Parameter: X and Y 

Subroutine entry line: 46000 

Function: The program draws a line from the present 
position of the plotter to the point displaced by X and 
Y. The difference, as compared to LINE, is that not the 
actual target is indicated but only the distance to 
reach the latter. 


MOVE 


Parameter: X and Y 

Subroutine entry line: 45000 

Function: MOVE moves the writing pen towards the 
target (X,Y) without drawing, i.e. the writing penis lift- 
ed. Otherwise, MOVE corresponds to the subroutine 
LINE. 


RMOVE 


Parameter: X and Y 

Subroutine entry line: 47000 

Function: As MOVE corresponds to LINE, RMOVE 
corresponds to RLINE. |.e. no drawing is effected and 
the indication of coordinates is relative by indication 
of the value of the distance. 


SET ORIGIN 


Parameter: X and Y 

Subroutine entry line: 42000 

Function: From now on, the zero point of the coordi- 
nate system is shifted to point (X,Y). The origin of the 


coordinates is indicated referring to the hitherto 
valid coordinate system. Before the first call of 
subroutine SET ORIGIN, the coordinate system 
coincides with the mechanical system of the plotter, 
hence it is situated in the left bottom corner near the 
limit keys. 


ORIGIN 


Parameter: none 

Subroutine entry line: 41000 

Function: Raises the writing pen and moves the plot- 
ter to the origin of the coordinate system. The latter 
may not necessarily coincide with the left bottom 
corner of the plotter but may also have been shifted 
to another position by means of the above described 
command SET ORIGIN. 


CHAR 


Parameter: X, Y, A$, R and G 

Subroutine entry line: 48000 

Function: By this subroutine, the letters which have 
been filed in the variable A$, are drawn at the posi- 
tion indicated by X and Y. More precisely: You have to 
imagine the letter surrounded by a frame (fig. 7). The 
subroutine assumes that the pen is situated at the 
left side of the letter frame as indicated by the posi- 
tion start. When the letter has been finished, the writ- 
ing pen is situated at the right side and lifted off. The 
available letters of the plotter are represented in 
fig. 8. Parameter R defines the direction of writing of 
the plotter. When lettering graphs/diagrams the 
requirement may occur to produce vertically 
arranged texts or texts written upside down. Fig. 9 
shows the letters on basis of various values for R. 
By G the size of the character is determined. For G, 
any optional integer value can be chosen, as long as 
the drawing area is not exceeded. Fig. 9 also shows 
the effect of parameter G. 


Fig. 7 
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RCHAR 


Parameter: X, Y, A$, R and G 

Subroutine entry line: 49000 

Function: This subroutine performs the same func- 
tions as CHAR. As already in case of the above men- 
tioned subroutines, the positioning is differing in 
that only the distance to the present position in X and 
Y is transmitted. Especially in case of continuous 
texts RCHAR is of interest. As after drawing of the 
first letter the plotting pen is located at the right side 
of the letter frame, the program RCHAR called with 
X=0 and Y=0 may add directly the next letter. 


Fig. 9 A 


SCALE 


Parameter: X1, X2, Y1, Y2 

Subroutine entry line: 43000 

Function: You may not always want to compute for all 
commands the number of the steps of the stepping 
motors as coordinate. By means of the subroutine 
SCALE you may provide the left border of the paper 
with value X1, the right border with value X2. Corre- 
spondingly you apply Y1 forthe bottom and Y2 forthe 
top side. All subsequent information of coordinates 
refer to this new coordinate system. 


G=6 


Plotter tools 


When loading the program PLOT a further three 
subroutines are loaded apart from the subroutines 
discussed above. 


AXIS 


Parameter: XA, YA, XE, YE, X1, Y1, X2, Y2, SK, X$ 
and Y$ 

Subroutine entry line: 22000 

Function: The program AXIS serves for drawing the 
system of the two coordinates. This subroutine will 
be of particular use if you want to draw functions, 
measured values and results or distributions. It in- 
cludes quite a series of parameters by means of 
which you can create the system of the two coordi- 
nates. The positioning of the coordinate system is 
defined by the four variables XA, XE, YA, YE. XA 
defines the beginning of the x-axis, XE the end of 
same. Correspondingly YA and YE define the begin- 
ning and the end of the y-axis. XA, XE and YA, YE are 
indicated in plotter steps referring to the left bottom 
corner of the plotter. Similar to the suroutine SCALE, 
however, the subroutine AXIS applies to these plot- 
ter steps the actual values of your coordinate sys- 
tem. X1 represents the value at XA, X2 at XE, Y1 at YA 
and Y2 at YE. In this way and manner, coordinate 
axes of any optional dimension whatsoever may be 
drawn with any optional ranges of values. If the para- 
meter SK should differ from 0, both axes are lettered. 
The subroutine will try to design the coordinate sys- 
tem on basis of values of experience. If you should 
prefer a deviating design, you may intervene on your 
own by refering to the documentation of the pro- 
grams. Additionally, a short legend may be indicated 
for each axis which is filed under the character string 
variables X$ and Y$. Size and direction of lettering 
are defined by subroutine AXIS but may, of course, 
be altered as per requirements. 
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CIRCLE 


Parameter: X, Y, RX, RY, WA and WE 

Subroutine entry line: 21.000 

Function: The second tool is a subroutine for draw- 
ing circles. However, not only circles may be drawn 
but - as a generalization of the circle — also ellipses. 
This is controlled by the indication of separate radii 
in x- and y-direction, RX and RY. Moreover, not the 
whole circle or the whole ellipse has to be drawn. By 
WA and WE the angle at the beginning and at the end 
of the circular resp. elliptical arc is indicated. The 
counting of the angle is effected in degrees in coun- 
ter clockwise direction, beginning at the positive x- 
axis. 


BOX 


Parameter: XA, XE, YA, YE and S 

Subroutine entry line: 20.000 

Function: By this subroutine, a rectangle is drawn 
with XA, YA drawing the left bottom corner point, XE, 
YE the right top corner point. If S differs from zero, 
the rectangular area is hatched diagonally. The 
absolute value of S (i.e. omitting the prefix) indicates 
the spreading of the hatching. The sign controls 
whether the hatching is to be performed from bottom 
left to top right (in case of positive value) resp. from 
top left to bottom right (in case of negative value). 


Use of the plotter routines 


When you have loaded the program PLOT, all above 
mentioned subroutines are at your disposition. 
However, after starting the program PLOT it does 
nothing else than positioning the plotter in its home 
position and loading the character set. Nothing 
more? Indeed, your part is now to come. It is your 
task to prescribe what should be plotted. For this 
purpose you may write a program in the range of line 
number 1000 to 19000. 


Have a close look to this range by giving the 
command: 


LIST 1000-19000 


You should, depending on the computer system, 
read something like: 


1000 REM 
1010 REM ¥XXXRAKKAKRIAKERRERERRERRI IR 


1020 REM START OF THE USER PROGRAM 
1030 REM 22 III IIR 


19000 END 


Let us get acquainted with the most simple com- 
mands, LINE and MOVE, in first instance. LINE plotsa 
line from the actual position of the pen to the position 
given by X and Y. Insert the following lines in program 
PLOT: 


1060 LET X=200 : Y=150 
1070 GOSUB 44000 :REM LINE 


When starting the program you will observe a 
straight line reaching from the starting position 
(X=0, Y=0) to the position (X=200, Y=150). The 
drawing may be continued from that position. Add 
e.g. 

1080 LET X=150 : Y=50 

1090 GOSUB 44000 :REM LINE 


In general you will not be able to plot a drawing at one 
stroke. For movements with the pen lifted you will 
use the subroutine MOVE. When adding: 


1040 LET X=50 : Y=200 
1050 GOSUB 45000 : REM MOVE 


the path will no longer start in the left lower corner of 
the paper. 

What is the permissible range of X and Y? Just test it 
yourself! Delete line number 1040 through 1090 (or 
just over-write them) and type in the following tiny 
program 


1040 FOR T=10 TO 700 STEP 10 

1050 LET X=T : Y=T 

1060 GOSUB 44000 :REM LINE 

1070 PRINT ”LINE TO X=”;XJ;” Y=”;YJ 

1080 PRINT ” XOUT=”;XOUT; 
”YOUT=”;YOUT 

1090 NEXT T 

1100 LET X=400 : Y=200 

1110 GOSUB 44000 :REM LINE 


Observe the plotter as well as the printout on the 
screen. The plotter will in first instance follow a line 
inclined by 45 degrees since X and Y are increment- 
ed by same steps. When reaching the value 500 the 
pen is located at the upper edge of the paper. From 
now on the plotter will proceed to the right. The pen 
is lifted although the command LINE is given. When 
superceeding the value 680, the plotter will even 
come to a complete stop. So, exceeding the plot 
area (0<X<680, 0<Y<500) will not lead to any dam- 
age or misalignement of the plotter. The plotter tries 
to follow the prescribed movement by following the 
border of the paper. You may observe from the 
screen printout, that the values of the internal coor- 
dinates (XJ and YJ for X- and Y-direction, respec- 
tively) continue to be defined. Once the target posi- 
tion falls within the plot area, the plotter activates the 
pen again. You also might have observed the relation 
between the flags XOUT and YOUT and the out-of- 
range situation. By testing those flags after a move- 
ment of the plotter you might easily interrogate if the 
plotter has left its admissible range. 


In the following interesting example we will make use 
of the flags as well as introduce relative movements 
(RLINE and RMOVE). Delete lines 1040 through 1110 
or just load once again the program PLOT. 


In an extremely simplified simulation experiment we 
will plot the path of a molecule in gas. The molecule 
collides with the molecules surrounding it and the- 
refore obtains from time to time a new momentum 
and direction. The new direction and range is sub- 
ject to statistical distribution. In total we observe a 
zig-zag path (Brownian movement). Starting point of 
the path is the middle of the paper. Once the path 
leaves the paper, the program stops. 


1040 REM 

1050 REM SIMULATION OF MOLECULAR 
MOVEMENT 

1060 LET X=340 : Y=250 : REM MIDDLE OF 
THE PAPER 

1070 GOSUB 45000 :REM MOVE 

1080 LET SC=0 :REM STEP COUNTER 

1090 LET A=100 :REM MAXIMUM RANGE 

1100 LET SC=SC+1 :REM COUNT STEPS 

1110 LET X=A*(RND(1)-0.5) 

1120 LET Y=A*(RND(1)-0.5) 

1130 GOSUB 46000 :REM RLINE 

1140 PRINT ”POSITION ”;SC” AT XY: ”;XJ,YJ 

1150 IF XOUT THEN GOTO 1180 

1160 IF YOUT THEN GOTO 1180 

1170 GOTO 1100 :REM NEXT STEP 

1180 PRINT *PATH STOPPED” 

1220 GOSUB 40000 :REM HOME 


The programming example demonstrates, how the 
subroutine RLINE appends path elements starting 
from the position reached so far. If you require the 
absolute position, however, you still may obtain it by 
means of the variables XJ and YJ (see line 1140). 


Do you prefer lettering of your drawing? Just add the 
following lines to your program: 


1190 LET X=0 : Y=0 : R=0 : G=2 
1200 LET A$=”MOLECULAR PATH” 
1210 GOSUB 48000 :REM CHAR 


When finishing the plot, the text "MOLECULAR 
PATH” will be written to the lower left corner of the 
paper. If you prefer a lettering using upper and lower 
case characters, you may write line 1200 as well 


1200 LET A$=”Molecular path” 


This holds for computers which strictly use the ASCII 
standard character set. As some computers deviate, 
we give the ASCII standard in the table below. By the 
way, if you want to look up the definition of a specific 
character in the range of DATA lines, you just add 
62000 to the ASCII code number to obtain the line 
number of the DATA statement. 


Unfortunately, just the popular Commodore compu- 
ters, frequently used in the documentation of the 
fischertechnik programs, uses a character set 
strongly deviating from ASCII. As long as you operate 
the computer in the capital letter/graphics mode, 
the capital letters, numbers and punctuation marks 
coincide with the plotter’s character set. If you 
switch to the lower case/upper case mode by press- 
ing the SHIFT- and Commodore keys at the same 
time, all upper case letters have been converted to 
lower case letters on the screen. This magic, how- 
ever, applies not for the character set of the plotter. 
Nevertheless you may adopt the Commodore cha- 
racter set for your plotter. You just have to reorganize 
the sequence of DATA lines in the definition of the 
character set. Lines 62064 through 62095 go to 
lines 62192 through 62223. The DATA lines being 
previously there are just overwritten. The lines 
62096 through 62127 move to the range 62064 
through 62095. Finally you may fill up the range 
62096 through 62127 with undefined characters 
(ten times the zero). However leaving the characters 
unchanged would do as well. Finally you should con- 
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ASCII DEZ HEX ASCIi DEZ HEX ASCII DEZ HEX ASCII DEZ HEX 


NUL 00 @ ‘@® 96 60 
SOH 01 A a 97 61 
STX 02 B b 98 62 
ETX 03 Cc c. go" 6s 
EOT 04 D d 100 64 
ENQ 05 E e 101 65 
ACK 06 F f 102 66 
BEL 07 G g 103 67 
BS 08 H h 104 68 
HT 09 | i 105 69 
LF 10 J j 106 6A 
Vie td K k 107 6B 
FF 12 L | 108 6C 
cR 13 M m 109 6D 
sO 14 : N n 110 6E 
sl 15 / fo) o 4111 6F 
DLE 16 0 P p 112) °70 
DCi » Fz, 1 Q Hiahkye “Al 
pc2 18 2 R r 611472 
pc3. 19 3 s s 115 73 
DC4 20 4 T t 116 74 
NAK 21 5 U Ty Shien ris 
SYN 22 6 Vv v 118 «76 
ETB 23 7 w w 119-77 
CAN 24 8 x x 120 78 
EM 25 9 Y y 121 79 
SUB 26 Zz z 122° 7A 
ESC 27 ©) 6) 423 7B 
FS 28 ‘@ ‘@ 124 7C 
GS 29 ‘© ‘@ 125 7D 
RS 30 ‘© ‘M 126 7E 
US 31 = DEL 127 7F 
: © ®@ ®@ ® @® © @® © @o© 
Hexadezimal 23 24 40 5B 5C 5D 5E 60 7B 7C 7D 7E 
Englsh(USA) # $ @ [| \ ] ae te | es 


Deutsch eB Sie tSee Als One (oe aera 0) 20 IB 
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vince yourself that you still have the same total num- 
ber of DATA lines. 

The whole process should be done using a pro- 
gramming toolkit, that allows renumbering including 
block transfer. It may be done using the fischertech- 
nik character generator as well. When using aC 64, 
you call the latter by 


GOTO 63000 


Here are some more tricks concerning the use of the 
character set. In some cases not all characters are 
accessible from the keyboard. You may e.g. meet dif- 
ficulties to generate the vertical bar (code number 
124). In that case you have to merge this symbol into 
the string using the CHR$-function: 


LET A$=”coordinates (X”+CHR$(124)+”Y)” 


To print out numbers you may make use of the STR$- 
function. Let’s stick to our example and modify line 
1200 once more: 


1200 LET A$=”Molecular Path in” 
+STR$(SC)+” Steps” 


You may create special effects by superimposing 
text strings. Either you chose the appropriate text 
coordinates for the strings or you chose the ASCII 
control code BACKSPACE (code number 8) which 
moves the plotter pen back by one character frame. 
Using the string 


A$="0”+CHR$(8)+”/” 


generates a zero with a slash. This is mentioned just 
to demonstrate the method. If you really prefer the 
zero with slash, you should modify the character set 
permanently. The control code 8 is, by the way, the 
only ASCII control code evaluated by the plotter. 


Once again a hint for users of Commodore Compu- 
ters. If you prefer to use the CURSOR LEFT symbol 
instead of BACKSPACE you may modify line number 
48070 in the program PLOT: 


48070 IF MIDS(A$, 10,1)=CHR$(157) 
THEN XNEW%=-5 : YNEW%=3 : 
PEN=0 : GOTO 48220 


The next example is devoted to the subroutines SET 
ORIGIN, ORIGIN and SCALE. Those subroutines 
serve your ease of programming. In most cases the 
range of the values to be plotted will not coincide 
with the number of steps to control the motors. Let’s 
assume you want to plot a temperature curve. The 
span of the temperature will range from —20 to 40 
degree Celsius and will be plotted along the y-axis. 
The x-axis will arranged to contain atime scale from 
0 to 60 minutes. The type of the task is very typical 
and it may easily occur that you sit down every time, 
looking up formulas and running the risc of introduc- 
ing bugs in the program. There is, however, no need 
to do so, since you just give this task to subroutine 
SCALE. The example below demonstrates the use of 
subroutine SCALE. It does not really plot a tempera- 
ture curve but just a frame around the area to contain 
the curve. Of course you may improve and extend 
the program later on. We will also present sugges- 
tions to simplify the program in the ongoing text. 


1040 REM 

1050 REM FRAME 

1060 LET X1=0 : X2=60 :REM TIME SPAN 

1070 LET Y1=-20 : Y2=40 :REM 
TEMPERATURE SPAN 

1080 GOSUB 43000 :REM SCALE 

1090 GOSUB 1170 : REM PLOT FRAME 

1100 GOSUB 41000 : REM ORIGIN 

1140 END 

1150 REM 

1160 PLOT FRAME 

1170 LET X=0 : Y=-20 

1180 GOSUB 45000 : REM MOVE 

1190 LET X=0 : Y=40 

1200 GOSUB 44000 : REM LINE 

1210 LET X=60 : Y=40 


1220 GOSUB 44000 : REM LINE 
1230 LET X=60 : Y=-20 

1240 GOSUB 44000 : REM LINE 
1250 LET X=0 : Y=-20 

1260 GOSUB 44000 : REM LINE 
1270 RETURN 


In line 1100 the plotter moved to its origin, which 
means X=0, Y=0. Note that in the case chosen thisis 
not the lower left corner of the paper. The origin of 
the system of coordinates may be displaced to any 
position. The subroutine SET ORIGIN serves for this 
task. Since the conversion factors are not affected 
by displacing the origin, the lower and upper bound- 
aries are displaced by the same measure. We will 
study the effect of the subroutine SET ORIGIN by 
adding three lines: 


1110 LET X=30 : Y=10 
1120 GOSUB 42000 : REM SET ORIGIN 
1130 GOSUB 1170 : REM PLOT FRAME 


Run the program once more and compare with the 
previous result. The first frame is plotted as before. 
After the pen is moved to the origin, the latter is dis- 
placed. When plotting the frame once more you will 
recognize the displacement. In the example chosen, 
the displacement leads to an out-of-range situation 
at the upper and right border of the frame, which you 
will recognize from the lifting of the pen. You may 
imagine the effect of the subroutine SET ORIGIN like 
moving a window across the plotter area. 


As mentioned above we can simplify the program. 
Instead of the subroutine plotting the frame, you may 
use the plotter tool BOX as well. Replace lines 1170 
through 1270 by the following: 


1170 LET XA=0 : ZA=-20 : XE=60 : 
YE=40 : S=0 

1180 GOSUB 20000 :REM BOX 

1190 RETURN 


Once you have become acquainted with the control 
parameters of SCALE and BOX, you will find it easy to 
use the plotter tool AXIS. Let’s stick to the example 
already chosen, the temperature curve with a tem- 
perature span from —20 to 40 degree Celsius and the 
time interval of 60 minutes. The following program 
lines define the system of coordinates for this case. 


1040 REM 

1050 REM SYSTEM OF COORDINATES FOR 
TEMPERATUR CURVE 

1060 LET XA=30 : YA= 0 : XE=680: 
YE=500 

1070 REM USES ALMOST THE WHOLE 
PAPER SIZE 

1080 LET X1=0 : Yi=-20 : X2=60 : Y2=40 

1090 REM DEFINES THE RANGE OF 
VALUES 

1100 SK=1 :REM LETTERING OF THE AXES 

1110 X$="time (min)” :REM TEXT X-AXIS 

1120 Y$=”temperature (”+CHR$(127)+”C)” 

1130 GOSUB 22000 : REM AXIS 


In line 1120 the text of the lettering has been supple- 
mented by a special character. The symbol denotes 
the degree character, the superscript zero. Since 
this character is not yet defined in the program PLOT, 
it has to be generated by the character generator 
program. A corresponding run yielded the DATA line 
replacing the previous one: 


‘62127 DATA 1657,5869,8998,9786,6600,0,0,0,0,0 


The subroutine AXIS defines the scale factors and 
displacements, very similar to SCALE, depending on 
the given range of plotter steps and the correspond- 
ing spans of the values. You may convince yourself 
by plotting a diagonal line, the end-points of which 
are given in the scaled system. 
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1140 LET X=0 : Y=-20 

1150 GOSUB 45000 : REM MOVE 
1160 LET X=60 : Y=40 

1170 GOSUB 44000 : REM LINE 


The subroutine AXIS also simplifies the task to use 
just a part of the paper format. If you would like to 
restrict the plot to the left half of the paper you just 
have to modify line 1060 (and 1070): 


1060 LET XA=30 : YA=0 : XE=340 : YE=500 
1070 REM USES HALF OF THE PAPER 


Now some hints for the use of the subroutine 
CIRCLE. As described above the subroutine may not 
only be used to plot circles or ellipses, but also arcs 
of circles and ellipses. The arc is defined by its start- 
ing and ending angle. These angular parameters WA 
and WE have to be given in degrees. A lot of com- 
puters, however, do not use degrees as angular 
measure but only radians. In that case you may use 
one of the following conversions: 


WDEGREE=WRAD*45/ATN(1) 
WDEGREE=WRAD*180/PI :REM IF PI 
IS DEFINED 


Alternatively you may modify the subroutine CIRCLE 
by eliminating the factor ATN (1)/45 in lines 21040, 
21050, 21090, 21100, 21130 and 21140, e.g.: 


21040 LET X=XA+RX*COS(WA) 
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User programs 


Very similar to the examples above you may write 
more complex programs. Three such programs are 
on the floppy disk resp. cassette. They are meant to 
familiarize you with the use of the plotter and the 
plotter subroutines. Hence, these programs may 
also serve as examples for your own program deve- 
lopments. Two of the programs serve for the recor- 
ding of functions, the third one shows the projection 
of a three-dimensional object onto the paper. 


Program FUNCTION 


By means of the program FUNCTION you may depict 
on the plotter any optional function of type Y=F(X). 
The only thing you have to do in this case is to define 
the function. For this purpose, line 1000 has to be 
modified accordingly. In our example, the line reads 
as follows: 


1000 DEF FNY(X)=SIN(X)*EXP(-0.02*X) 


Hereby, the plot of adamped sinusoidal oscillationis 
produced as shown in fig. 10. For technical reasons, 
the name of the function must be input again as 
character string for the lettering of the plot: 


1010 F$=”SIN(X)*EXP(-0.02*X)” 


Besides, the value range of the independent variable 
X has to be indicated in line 1020. Our example 
reads: 


1020 XA=0 : XE=90 


You may alter all three lines according to your requi- 
rements. The rest will be done by the program for 
you. It will compute minimum and maximum of the 
function so that the paper is optimally utilized. It 
creates the coordinate system and then draws the 
function. 

Depending on the actual computer the running time 
of the program may range between 20 and 80 
minutes. Therefore, in case of repeated runs, we 
recommend to compile the program after the defini- 


tion of the function, to make use of the full velocity of 
the plotter. 


Program PARAM.F 


Many charts cannot be written as a function Y=F(X). 
Remember e.g. the circle (for which we have a 
special subroutine, too). In the above notation, its 
functional equation would read: 


1000 DEF FNY(X)=SQR(R*R-X*X) 


Hereby, however, only the upper semicircle would 
be drawn. Moreover, error messages would occur if 
the drawing area should be chosen larger than the 
radius R. It is better to describe such functions as 
twodimensional functions of acommon parameter T. 
The program PARAM.F has been designed for this 
purpose. Analogously, the function is defined again 
with the command DEF: 


1000 DEF FNX(T)=COS(T) 

1010 DEF FNY(T)=SIN(T) 

1020 F$="CIRCLE” 

1030 TA=0:TE=6.2832:TS=0.1 

1040 AX=1:REM DRAW COORDINATE 
SYSTEM 

1050 XA=1.1:XE=1.1:YA=1.1:YE=1.1 


The above example shows how to draw the circle 
without difficulties by means of the program 
PARAM.F. Lines 1000 to 1030 are to be used like the 
corresponding lines of the program FUNCTION. 
Lines 1040 and 1050 should still be explained. By 
the value of the variable AX it is determined whether 
a coordinate system is to be drawn. In the above 
case, it is drawn; if AX = 0, it would be suppressed. 
The program PARAM.F does not perform a scaling of 
the range of values in order to avoid undesireable 
distortions of the graphs. Therefore, line 1050 indi- 
cates the limit values in both directions of axis. If the 
functional value should exceed these limits, the 


writing pen will move along the border. Let’s arouse 
your enthusiasm for the ’beauty’ of some of the 
following functions. 


Lissajous’figure 


1000 DEF FNX(T)=SIN(F1*T+P1) 

1010 DEF FNY(T)=SIN(F2*T) 

1020 LET TA=0:TE=8*ATN(1):TS=0.02 

1030 LET XA=-1.3:XE=1.3:YA=-1.3:YE=1.3 

1040 LET AX=0:REM NO COORDINATE 
SYSTEM 

1050 LET F1=2:F2=3:P1=ATN(1) 


Lissajous’ figure 2 
idem, however, 


1050 LET Fi=5:F2=7:P1=2*ATN(1) 


Program D3 


Some remarks to the use of the program D3 are in 
order. Starting the program you will recognize that it 
plots a three-dimensional object. This is, however, 
not the only object to be plotted. The program has 
been constructed in a way to read the information 
about the object from a couple of DATA lines. By 
modifying the DATA lines you may plot any object 
which is made up of straight edges. The angle of 
observation is later on defined, when running the 
program, which means nothing else that you may 
turn and tilt the object as you like. 


How to convert the construction of the object in an 
array of DATA lines? You start with a three-dimen- 
sional system of coordinates, in which you place the 
object. Take e.g. x for the width, y for the depth and z 
for the height of the object. The range of values you 
use, is arbitrary, since the program D3 scales the 
drawing to make optimal use of the paper size. Write 
down the corners of the object in triples of the 
values, x, y, and z. Bring those corners ina sequence 
so that you may plot later on the object uninterrupt- 


edly if possible. A corner of the object will appear 
several times in the list if there are more than two 
edges merging into it. 

Once you have arranged the corners in the most time 
effective sequence, you have to supplement each 
line in the list by a1 (one) or O (zero) at fourth posi- 
tion. When encountering a1, the plotter will connect 
the previous corner with the actual one. Incase of a0 
the actual position will be reached with the pen 
lifted. 

The list of numbers generated in the described man- 
neris typed into the program as DATA lines. The list is 
closed by the special DATA-line with the constants 
0,0,0,-1. The DATA-lines are supposed to be located 
subsequent to the character set of the program. 


Character generator 


The characters used in the subroutines CHAR resp. 
RCHAR are coded in a larger block of DATA-lines. In 
order to enable you to modify the characters or 
to define new characters (ASCll-codes No. 128 
through 255 are not yet occupied!) a character 
generator program is part of the software. Depend- 
ing on the type of computer concerned it is either 
integrated in the program PLOT or separately load- 
able. The structure of the program strongly depends 
on the graphics system of the computer so that a 
universally applicable description cannot be given. 
The operation of the program is, therefore, self 
explanatory. 
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Scanner operation 


The modular concept of fischertechnik allows a 
simple conversion of the plotter to obtain a scanner. 
Ifin case of the plotter the output of the data available 
in the computer is realized on paper, the direction of 
the data in case of the scanner is reversed. The origi- 
nal inserted in the scanneris scanned by arecording 
head. Amongst others, this head includes a lighting 
facility in orderto ensure a uniform illumination of the 
original beneath the read head. 

Furthermore, it is equipped with a photoresistor. 
A photoresistor will alter its resistance according to 
the intensity of its illumination. The brighter it is illu- 
minated, the lower the resistance value. The photo- 
resistor is screened in a way that it is not directly 
radiated by the lighting. Only the light reflected by 
the original is registered by the photoresistor. The 
quantity of light, however, depends on the gray 
shading of the original. Thus it is possible to ‘read’ 
the original. 


The resistance value of the photoresistor is deter- 
mined by means of the initially described analog 
input EY. For initial testing you may load the diag- 
nostic routine from the floppy disk or cassette, 
already described above. Now start the program. 
Depending on the type of interface concerned you 
most probably will note an overflow of EY at 255 ora 
number higher than 255. Now the time has come to 
switch on the light! Hence, select M4 (by actuation of 
the key 4) and switch on the output as indicated by 
the programs menu. Now the lamp is illuminated and 
immediately EY will indicate lower values. Insert a 
piece of white paper beneath the read head and take 
a note of value EY. Now colour a larger area by appli- 
cation of a black fibre pen or use a piece of black 
cardboard. You should take down this value, too. 
Both values will define the dark-bright-range. The 
gray shades should be between the two extreme 
values. You may perform atest to this effect. Unfortu- 
nately, we cannot give any exact details regarding 
the extent of values because it depends on many 
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factors: the respective type of interface concerned, 
the scatter of the lamp and photoresistor, the bright- 
ness of the paper and the environmental light. Atany 
rate, the value read-in should vary between 0 and 
255: 

For the next experiment you will draw some black 
lines of different widths onto white paper. Pass these 
lines or strokes transversally through beneath the 
recording head. You will observe that only in case of 
lines wider than 5 mm you will approximate the pre- 
viously registered black level with the head posi- 
tioned exactly above recording the line. The finer the 
line, the more the value read-in will approximate the 
white level. In case of very fine lines, the value of EY 
will not alter at all when passing the line underneath 
the read head. In any case, however, it should be 
possible to safely recognize lines of a width of 2 mm. 


Digital image recording 


Perhaps, you will have already envisioned systems 
in which images can be recorded by means of a 
video camera, transferred to the computer and eva- 
luated there. Well, such an installation will have its 
price. If you spend sufficient time you may achieve 
the same result by means of the scanner.The pro- 
gram SCANNER serves for scanning an original pic- 
ture or image. It is scanned line by line. You may 
select the format of the image. Now the image is 
recorded. During the period the scanner is operat- 
ing, the lighting conditions of the environment 
should not change. The best would be to darken the 
room a bit. When the data of the image are available 
in the main storage of the computer you may experi- 
ment with them to your heart’s content. For repeated 
evaluation, the data first of all are filed on floppy disk 
or cassette. 
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Image evaluation 


For the following evaluation of images we need a 
graphic system for ourhome resp. personal comput- 
er. New types of models are already equipped ac- 
cordingly. For previous types additional equipment 
will normally be available on basis of which screen 
graphics can be used. But there are also some com- 
puters of latest techniques which incorporate the 
necessary hardware for screen graphics but do not 
support it by the respective software. In this case 
you may aquire an extended software and install it 
before loading the following programs. For the Com- 
modore 64 Computer we have used the BASIC- 
extension SIMONS BASIC which may be obtained 
from Commodore, in the following program docu- 
mentation. If you should want to adapt the programs 
to other computers or other software systems you 
should pay special attention to all program lines 
marked by an asterisk. As we are very sparing of 
graphic commands it will not entail significant diffi- 
culties to find out equivalent commands and to 
modify the programs. 


Let us now tackle our first image evaluation by 
means of the program B&W. We intend to perform a 
gray shade separation. That means that all elements 
of the data field are represented by a bright screen 
point on the condition that their value does not 
exceed a predetermined limit value. If the value is 
greater than or equal to the limit, it is represented as 
a dark screen point. You may input the limit value by 
the computer keyboard. Perform a test with various 
values. Please also determine the limits of the value 
range. They have been obtained if the whole image is 
either white or dark. 

Also the image resolution may be altered subse- 
quently; it naturally can only be coarser. The pro- 
gram D.PIC is a further development on basis of the 
previous one. You are asked for the limit value and 
the resolution. Digitize a portrait for instance. Have 
the portrait displayed on the screen with the suitable 
threshold. Now reduce bit by bit the resolution and 


observe when the person on the screen can no lon- 
ger be recognized. Digitizing photos you will obtain 
in this way and manner fascinating alienations of 
images which may also be used as an artistic means 
of design and creation. For most of the computers, 
so-called hardcopy programs have already been 
published in computer journals. These are programs 
which will copy the momentaneous screen content 
distortionless on the printer. You may utilize such 
programs for recording your creations on paper. But 
not only art, also engineering and medicine benefit 
from the digital processing of images. Remember 
e.g. X-ray pictures. If not bones but organs inside the 
body are concerned, the conventional X-ray photo- 
graphy suffers from a deficient contrast. This defi- 
ciency is coped with by a digital processing of 
pictures. By means of the computer not only one 
grey shade can be stipulated as limit beween black 
and white but it is possible to determine several limit 
values. Consequently, the range of grey shades is 
separated in intervals. To each interval, a screen 
colour is now assigned optionally. What previously 
have been undistinguishable grey tones, now turn to 
be clearly distinguishable colours. Now it is possible 
to recognize details in the X-ray photography which 
previously would barely have been found out. On 
basis of the program COLOR and a very unclear 
photography you may convince yourselves of the 
efficiency of this method. By the way, this method 
and process is adopted not only in the field of medi- 
cine but also for the evaluation of aerial photo- 
graphs. Also photographs taken by means of other 
sensors like e.g. infrared and thermal photographs, 
ultrasonic and radiometric records or computer 
tomographies are evaluated in this way and manner. 
These very useful techniques, too, again allow 
interesting creations in the field of the computer 
graphics. 


Pattern recognition 


By scanning a picture line by line, the picture is 
collected in total. Sometimes, however, the com- 
plete information of a picture is not required. Or a 
complete information would even be more of a hin- 
drance because then the desired information would 
be obtained only after sampling a large quantity of 
data. In such case, we speak of pattern recognition. 
Pattern recognition is required e.g. in robotics. Let us 
assume that a robot should pick up a part which is 
transported on a conveyor belt, and install that part 
in an appliance. Usually the part will arrive on the 
conveyor belt in any optional position whatsoever. 
Perhaps, it may even occur that wrong parts are 
transported on that conveyor belt. The robot must 
not use such parts but must remove them from the 
belt. In order to solve this problem, an image pro- 
cessing unit is installed in the robot control system. 


The same is tried now with the scanner. We assume 
that it would be our task to recognize a filled black 
circle on a white background. By means of a black 
fibre pen you may draw the circle ona sheet of white 
paper. On account of the difference in brightness, 
the circle can be detected without difficulties by 
means of the photoresistor. Now we can utilize our 
above described scanner program and scan the 
whole area. In such case, however, we would be 
confronted with the above mentioned disadvan- 
tages of aconsiderably long scanning period as well 
as the extraction of the data. 

Let us accelerate the procedure. First of all, the 
scanner has to search for the circle. Subsequently, 
the scanner moves along the black-white-border of 
the figure. In doing this, it will oscillate to and fro 
between the areas and proceed in a zig-zag mode. 
Proceeding consequently in this way and manner it 
must arrive again at the initial position, whereafter 
the trajectory traveled is evaluated. By approxima- 
tion the center of the circle is defined as center of 
gravity of the path traveled by the scanner. This 
entails the advantage that it is easily programmable 


and that it leads to results which are sufficiently 
exact for our purposes. The circle radius results as 
average value of all distances from the center to the 
various points on the path traveled. Hence, our 
example includes all data required for pattern recog- 
nition. 

In a teach-in phase we can offer to the program a 
reference circle. If the latter has been recorded by 
the program PATTERN it will be able upon actuation 
of a key to study further figures. If center and radius 
coincide it will be a circle which is completely identi- 
cal to the reference circle. If on the other hand the 
radius coincides with the reference circle but the 
location of the center does not, it will be a circle 
which is only similar to the reference circle. And 
exactly this describes the situation for the robot 
where the parts may arrive in any optional position 
whatsoever on the conveyor belt. The program will 
then compute the displacement of the center as 
referred to the reference circle. lf, however, neither 
the center nor the radius should coincide with the 
original, it will be a differently large circle. This may 
occur e.g. if the video system of the robot observes 
the circle from different distances. In such case, the 
program PATTERN will also compute the relative dis- 
tance as referred to that of the reference circle. 
Perform experiments with your program and extend 
it. Computer vision is one of the most interesting 
fields of research of robotics and we would not 
exclude that perhaps you will find a more skilful 
algorithm. 


CNC drilling machine 


Like any other fischertechnik construction kit, the 
plotter/scanner may be combined with other 
fischertechnik components and expanded to more 
applications. If you still own one or two mini-motors, 


e.g. out of the fischertechnik service set, you may 
install a drill stand instead of the recording or write 
head. The lifting motor of the drill stand is connected 
at output M4 of the interface. Hereby, the drill is lifted 
and lowered. The drilling machine itself is represent- 
ed by a further mini-motor. It is connected directly to 
the power unit and runs pernranently. Of course, you 
cannot drill in reality by means of this motor, also the 
suspension would not be stiff enough — but for train- 
ing the plotter/scanner of this design will be excel- 
lent. Also the operating software will be quickly avail- 
able, as it needs insignificant alterations only as 
compared to the plotter software. The control of the 
lifting magnet is omitted; it is substituted by a piece 
of program which moves the drill downwards, 
remains in standby position and moves the drill 
upwards again. 


Printout of the programs 


On the following pages the BASIC-programs for the 
plotter/scanner are printed. The programs have 
been listed in the notation of Commodore 64 and 
partly need the BASIC-extension program SIMONS 
BASIC. The programs may also be loaded from the 
fischertechnik floppy disk training robot/plotter/ 
scanner. The same also applies to the correspond- 
ing programs for other types of computers. 

In case the floppy disk resp. cassette is not con- 
tained in the kit already address your request for the 
floppy disk resp. cassette to your authorized dealer 
or company representing fischertechnik in your 
country. You should indicate details of the type of 
your computer and disk drive. 
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Prog. STEP 


* 500 SYS INIT 


510 REM 

S520 REM FISCHERTECHNIK COMPUTING 
530 REM 

540 REM PROGRAM STEP .64 

550 REM 

560 REM COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1985 
570 REM 

580 REM CONNECTION TO THE INTERFACE 
598 REM 

600 REM COIL 1 - Mt 

610 REM COIL 2 - m2 

620 REM 

630 REM FUNCTION: 

640 REM CONTROL OF THE STEPPER MOTOR 
650 REM IN EITHER SINGLE STEP OR FREE 
660 REM RUN MODE. 

670 REM 

1000 PRINT CHR#( 147) 

1018 PRINT"F ISCHERTECHNIK" 

1020 PRINT“COMPUTING" 

1030 PRINT 

1040 PRINT"STEPPER CONTROL” 

1050 PRINT:PRINT 

1060 PRINT"CONTROL IN SINGLE STEP" 
1970 INPUT*OR IN FREE RUN (S/R>"7AS 
1080 IF AS="S" THEN GOTO 1118 

1099 IF AS<>"R" THEN GOTO 1960 
1100 INPUT"DELAY TIME"; 

111@ REM BEGIN OF PHASE CYCLES 
1120 REM 

1130 REM PHASE 1 

1140 SYS M1,CW 

1158 SYS M2,CW 

1160 GOSUB 29000 

1178 REM 

1180 REM PHASE 2 

1198 SYS M1,CCW 

1200 SYS me,CW 

1219 GOSUB 2000 

1220 REM 

123@ REM PHASE 3 

1240 SYS m1,CCW 

1258 SYS me,CCW 

1260 GOSUB 2000 

1278 REM 

1280 REM PHASE 4 

1298 SYS M1,CW 

1308 SYS Me,CCW 

1318 GOSUB 2000 

1320 REM 

133@ REM END OF CYCLE 

1348 GOTO 1140 

2000 REM DELAY ROUTINE 

2010 IF AS="S" THEN GOTO 20970 
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2020 
2030 
2040 
2050 
2060 
2070 
2080 


FOR Z=@ TO D0 

REM DELAY LOOP 

NEXT Z 

RETURN 

REM SINGLE STEP 

INPUT*HIT >RETURN< TO CONTINUE"?BS 
RETURN 


Prog. PLOT 


500 
510 
Seo 
530 
549 
550 
560 
S70 
530 
530 
600 
605 
610 
630 
640 
650 
660 
665 
670 
675 
6380 
685 
690 
695 
700 
705 
719 
720 
738 
740 
750 
760 
779 
730 
738 
$00 
810 
320 
830 
8349 


SYS INIT 

REM 

REM FISCHERTECHNIK COMPUTING 
REM 

REM PLOT.64 

REM 


REM COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1985 


REM 

REM PLOTTER TOOLS: 

REM 

REM 209000 BOX 

REM 21000 CIRCLE 

REM 22000 AXIS 

REM 

REM PLOTTER COMMANDS: 
REM 

REM 40002 HOME 

REM 410908 ORIGIN 

REM 420800 SET ORIGIN 
REM 43000 SCALE 

REM 44000 LINE 

REM 45000 MOVE 

REM 46000 RLINE 

REM 47000 RMOVE 

REM 48090 CHAR 

REM 499@@ RCHAR 

REM 

REM PLOTTER MOVEMENTS: 
REM 

REM 50000 +X-STEP 

REM 51900 -X-STEP 

REM 52000 +Y-STEP 

REM 53008 -Y-STEP 

REM 54900 +X/+Y-DIAGONAL 
REM 55990 +X/-Y-DIAGONAL 
REM 56009 -xX/+Y-DIAGONAL 
REM 57888 -X/-Y-DIAGONAL 
REM 53000 PEN DOLIN 

REM 59000 PEN UP 

REM 68000 LIMIT SWITCH ? 


858 REM 61000 OUT OF RANGE 7? 

86@ REM 

878 PRINT CHRS(147) 

880 PRINT*PLOTTER-INITIALISATION” 
898 GOSUB 49000 :REM HOME 

399 REM 

918 PRINT CHR#(147) 

920 PRINT“READING CHARACTER SET" 
938 DIM 2Z%¢255,9> 

940 FOR I=@ TO 255 

958 FOR J=@ TO 39 

960 READ 2%¢(1,J) 

970 NEXT J,1 

980 PRINT CHR$(147) 


1900 REM 

1D1D REM €HREERE ERE EERE EERE ER EERE RE ERE EERE 
1020 REM *#% START OF USERPROGRAM HEH 
1D3SO REM RAT ROO OR ROOK 
19000 END 

19898 REM 

19819 REM IMPORTANT GLOBAL VARIABLES: 

19829 REM 


19830 REM XM,YM: WIDTH,HEIGHT OF PLOTTER AREA 
19835 REM IN PLOTTER STEPS 

19840 REM XJ,YJ: ABSOLUTE COORDINATES 

19845 REM OF THE ACTUAL POINT 

19850 REM (8,0) = LEFT BOTTOM CORNER 
19855 REM SCALE=1 PLOTTER STEP 

19860 REM XH,YH: VIRTUAL (LOGICAL) ZERO 

19865 REM IN ABSOLUTE COORDINATES 

1987@ REM XS,YS: SCALE, NUMBER OF 

19875 REM PLOTTER STEPS PER LOGIC UNIT 

19880 REM XO0O,YO: ‘¢=xXOUT,YOUT) FLAGS; 

19890 REM BECOME 1, WENN XJ,YJ ARE 
19895 REM OUT OF THE RANGE @...xM,@...YM 
199890 REM 

1991D REM HERRERA R AER ERE EERE AREER EERE 
19920 REM te# PLOTTER TOOLS #2 
19930 REM EHRKAKEREERARAERAE ERR RARER 
19940 REM 

199580 REM VARIABLES USED IN THIS ROUTINE: 
19968 REM 

19970 REM G,R,-RX,RY,S,SK,W,WA,WE ,WS ,AS,X$, YS 
19980 REM X,X@,X1,%2,X%3,KA,XE,XH,XS,Y 
19985 REM Y0,Y1,Y2,Y3,YA,YD,YE,YH,YS 
1399399 REM 

20000 REM *** BOX ***% 

20010 REM 

29020 IF KA > XE THEN X = XE!XE = XA:XA 
20030 IF YA > YE THEN Y = YE: YE = YA: YA 
20040 LET X=XA:LET Y=YA:GOSUB 45000 
20058 LET X=XA!LET Y=YE:GOSUB 44000 
20060 LET X=XE!LET Y=YE:GOSUB 44000 
20078 LET X=xXE:LET Y=YA:GOSUB 44000 
20080 LET X=xXA:LET Y=YA:GOSUB 44000 
20899 IF S=@ THEN RETURN 

20190 REM HATCH 

20119 FOR XD=@ TO (XE-XA)+CYE-YA) STEP ABS(S) 


" it 
xx 


20120 IF XD<CYE-YA) THEN LET X=XA!Y=YE-XD:GOTO 201 
40 

20130 LET X=XA+tKDtYA-YE:Y=YA 

20190 IF S ¢ @ THEN LET Y=YE+YA-Y 

28158 GOSUB 45900 

20160 IF XD>¢(XE-XA) THEN LET X=XE: Y=YE+XE-XA-XD:GO 
TO 20180 

20170 LET X=KA+KD: Y=YE 

20180 IF S < @ THEN LET Y=YE+tYA-Y 

20198 GOSUB 449000 

20200 NEXT XD 

20210 RETURN 

20228 REM 

21800 REM *** CIRCLE *** 

21010 REM 

21020 LET RX=ABSC(RX) LET RY=ABS(RY) 

21930 LET XA=X?LET YA=Y:REM SAVE CENTER COORDINATE 
Ss 

21840 LET X=xXAtRX*COS CATNC 1) *WA/45 > 

21050 LET Y=YAtRY*SINCATN( 1) #WA/45) 

21069 GOSUB 459000 

21965 REM ANGLE STEPS 

21970 LET WS=SGNC(WE -WA #8007 CRK#XStRY*KYS +490) 

2108@ FOR W=WA TO WE STEP WS 

21990 LET X=KA+RX*COS (CATNC 1) #745) 

21100 LET Y=YAtRY*SINCATN( 1) #45) 

21118 GOSUB 44000 

21128 NEXT W 

21130 LET X=XA+RX*COS CATNC 1) WE /45) 

21140 LET Y=YAtRY*SINCATN( 1) #WE/45 > 

21150 GOSUB 44000:REM CLOSE CIRCLE SECTOR 

21160 RETURN 

21178 REM 

22000 REM k** AXIS #4#* 

22618 REM 

22020 REM XA,XE,YA,YE SPECIFY POSITION OF THE AXES 

22025 REM USING ACTUAL SCALE FACTOR 

22039 REM X1,x%2,Y1,Y2 ARE THE COORDINATES 

228940 REM OF THE ENO POINTS OF THE AXES 

2205@ REM 

220609 REM SCALING THE PLOTTER AREA 

22965 REM CORRESPONDING TO THE AXES 

22070 REM 

22080 REM X®,X%3,Y@,Y3? NEW COORDINATES 

22085 REM AT THE BORDERS OF THE PLOTTER AREA 

22090 REM 

22100 LET X@=K1~-CK2-X1)* CXAtKH/XS ) /CXE-XKAD 

22110 LET X3=xK2+(X2-K1) #0 CXM-XH)/XS-XE) /CXE-XAD 

22120 LET YO=Y1-CY2-Y1)*(YAtYH/YS)/CYE-YAD 

22130 LET Y3=Y2+ (Y2-Y1)"¢ CYM-YH)/YS-YE)/(YE-YA) 

22148 LET XS=xKM/CX3-xXO) 

2215@ LET YS=YM/(Y3-Y@) 

22160 LET XH=-xXO*#xS 

22172 LET YH=-Y@#yYS 

22180 REM DRAW AXES 

22190 IF Y1 > @ OR Ye < @ THEN 22430 

22208 REM X-AXIS 

22218 LET X=KI!LET Y=@:GOSUB 45900 

22220 LET X=X2:LET Y=@:GOSUB 44900 


22230 LET X=-18/XS!LET Y=5/YS:GOSUB 46008 

22240 LET X=19/XS:LET Y=-5/YS:GOSUB 47000 

22250 LET X=-19/XS:LET Y=-5/YS:GOSUB 46900 

222608 REM SCALING AND LETTERING 

22270 IF SK=@ THEN GOTO 22438 

22275 REM STEP WIDTH FOR SCALING 

22280 LET XD=18tINTCLOGCX2-X1>/LOG618)-.3) 

22299 IF (LENCSTRS(XD))+1)#19 > XD#XS THEN XD=xXD#5 
?GOTO 22310 

22300 IF (LENCSTRSC(XD))+12*40 < XD#xXS THEN XD=xXD/2 

22310 LET X0=0 

22320 IF XO+1.2*xXD < X2 THEN X@=X@+XD:GOTO 22320 

22325 REM NO LETTERING AT ZERO 

22330 IF ABS(X@) < XD/2 THEN GOTO 22398 

22349 LET X=xX@:LET Y=3/YS:GOSUB 45800 

22350 LET X=X@:LET Y=-3/YS:GOSUB 44900 

22360 LET AS=STR#SC(XO)2LET R=O:LET G=2 

22365 IF K@>@ THEN LET AS="+"+tRIGHTS(AS,LENCAS) -1) 

22370 LET X=XO-S#LEN(AS)/XS:LET Y=-18/7S 

22380 GOSUB 48900 

22390 IF X@-1.2*xXD > X1 THEN LET X@=X@-xXD:GOTO 223 
30 

22400 LET AS=X#:LET R=O:LET G=2 

22418 LET X=K2-10*LEN(AS)/XS?LET Y=12/YS 

22420 GOSUB 48909 

22430 IF X1 > @ OR X2 ¢< @ THEN RETURN 

229490 REM Y-AXIS 

22450 LET X=@:LET Y=Y1:GOSUB 45000 

22460 LET X=@:LET Y=Y2:GOSUB 449000 

22470 LET X=-S/XS:LET Y=-18/YS:GOSUB 46000 

22480 LET X=5/XS:‘LET Y=18/YS:GOSUB 47000 

22490 LET X=5/XS?LET Y=-18/YS:GOSUB 46000 

22508 REM SCALING AND LETTERING 

22510 IF SK=@ THEN RETURN 

22515 REM STEP WIDTH FOR SCALING 

22520 LET YO=10TINTCLOG(Y2-Y1)/LOG(18)-.3) 

22530 IF YD*#YS ¢ 2@ THEN YD=YD#100:GOTO 22558 

22540 IF YO*#YS > 68 THEN YD=YD/2 

22550 LET Yo=0 

22560 IF YOr!.2*YD < Y2 THEN LET Y®=Y@+YD:GOTO 225 
60 

22565 REM NO LETTERING AT ZERO 

22570 IF ABSCY@) < YD/2 THEN 22630 

22580 LET Y=YO:LET X=-3/XS:GOSUB 45900 

22590 LET Y=Y@!LET X=3/XS:GOSUB 449900 

22600 LET AS=STRSC(YO)?LET R=O:LET G=2 

22605 IF Y@>@ THEN LET AS="+"+RIGHTS(AS,LENCAS) -1) 

22610 LET X=8/XS:LET Y=Y8-6/YS 

22629 GOSUB 48000 

22630 IF Y@-1.2*YD > Y1 THEN Y@=Y@-YD:GOTO 22570 

22649 LET AS=YS$:LET R=1:LET G=2 

22650 LET X=-12/KS:LET Y=Y2-18*LENCAS)/YS 

22669 GOSUB 439008 

22678 RETURN 

22682 REM 


“ne eH 


39910 


39920 


33930 


33940 
33950 
33968 
33979 
33975 
339980 
33985 
33990 
40000 
90018 
40020 
40030 
40040 


40050 
40060 
40070 
40080 
40090 
40100 
40110 
40120 
40130 
90140 
41000 
41920 
41930 
41040 
41050 
41068 
42000 
42020 
42030 
42040 
42050 
43000 
43010 
43020 
43030 
43040 
43050 
43060 
43070 
43080 
44000 
49010 
44020 
49030 
44090 
449050 
44055 
44057 


REM KXEKKEKAERE EERE REESE RARER ERA EERE RARER EE 
** 

REM *% 
et 

REM EXEKEEKRERE SESE REESE REE RE RARER EAE EEE EE 
Ss 

REM 

REM VARIABLES USED IN THIS ROUTINE: 

REM 

REM At,E7,E8,180,J8,31,0,DX,DY,NX,NY,PE 

REM R,XAZ%,YAX,RNZ,YN“,Z%,Z22%06,) 

REM X%,Y,%1,Y1,X2,Y2,XH,YH,XI,YJI 

REM XM,YM,X®,YO,XS,YS,;XY 

REM 

REM *#* HOME #4% 

REM 

GOSUB 59000:REM PEN UP 

LET XJ=@:LET YJ=0 

IF USR(E7)=1 AND USR(E8)=1 THEN GOSUB 57060: 
GOTO 49848 

IF USR(E7)=1 THEN GOSUB 51950:GOTO 490050 

IF USRCE7)=@ THEN GOSUB 50050:GOTO 40060 

IF USR(E8)=1 THEN GOSUB 53050:GOTO 49070 

IF USR(E8)=8@ THEN GOSUB S52858:GOTO 40080 
GOSUB 54860:GOSUB 54860 

LET XM=680: YM=52a0 


SIMPLE COMMANDOS 


LET XH=@: YH=@:XS=1:YS=1 
LET XOUT=@: YOUT=9 
RETURN 

REM 


REM «*# ORIGIN #24 
GOSUB 53000:REM PEN UP 
LET X=@:LET Y= 

GOSUB 459000 

RETURN 

REM 

REM *#* SET ORIGIN #4 


LET XH=XH+tkK#xS 
LET YH=YHtYsYS 
RETURN 

REM 

REM #4#* SCALE *#** 
REM 


IF NOT (X1 < K2) OR NOT (Y1¢<Y2) THEN RETURN 
LET XS=XM/CX2-x1) 
LET YS=YM/CY2-Y1) 


LET XH=-X1"XS 
LET YH=-Y1*YS 
RETURN 

REM 

REM *** LINE #8 
REM 


GOSUB 58008:REM PEN DOWN 

LET X=INTCXHt*XS&X-XJ+.5) 

LET Y=INTCYH*YS#Y-YJ+.5) 

REM X,Y CONTAIN NOW THE RELATIVE DISTANCE 
REM IN PLOTTER STEPS 

REM NUMBER OF PLOTTER STEPS TO THE TARGET PO 
INT 
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44069 
44070 
44030 
499398 
441008 
449110 
94120 
949138 


LET DX=ABS(X):LET DY=ABSCY) 

LET NX=@:LET NY=@:REM STEP COUNTER 

LET D=@:REM DISTANCE TO THE OPTIMAL LINE 

IF NX=DX AND NY=DY THEN RETURN 

IF ABS(D+DY) < ABS(D+DY-DX) THEN 44172 

IF ABS(D-DX) < ABS<DtDY-DX>) THEN 44220 

REM DIAGONAL STEP 

ON 1-28{X%>8)-CY2@) GOSUB 57080 ,56000 ,55000,5 


4000 


494140 
44150 
44160 
44178 
44180 
4491398 
94200 
99210 
44220 
44230 
94240 
949258 
494260 
99278 
45000 
95018 
95020 
495030 
450490 
46000 
96010 
96020 
46030 
46040 
46050 
46060 
47000 
47010 
47020 
47930 
47040 
438000 
48010 
98020 
498030 
48040 
43050 
43060 
439070 


48080 
48038 
43100 


4931190 
43120 
48130 
48140 
43150 
48160 
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LET NX=NX+1L:2LET NY=NY+1 

LET D=D+DY-DX 

GOTO 44990 

REM X-STEP 

ON -(X>@)+1 GOSUBS 1000 ,50000 
LET NX=NX+1 

LET D=D+DY 

GOTO 44090 

REM Y-STEP 

ON -(Y>@)+1 GOSUB 53900 ,52000 
LET NY=NY+t1 

LET D=D-DXx 

GOTO 44099 

REM 

REM *** MOVE «4x 

REM 

GOSUB 59000:REM PEN UP 

GOTO 44030 

REM 

REM *#* RLINE #¥#* 

REM 

GOSUB 58000:REM PEN DOWN 

LET X=INTCXS#X+.5) 

LET Y=INTCYS#Y+.5) 

GOTO 4499050 

REM 

REM *** RMOVE #** 

REM 

GOSUB 59000:REM PEN UP 

GOTO 46030 

REM 

REM *#* CHAR #** 

REM 

GOSUB 45000:REM MOVE TO X,Y 
IF AS="" THEN RETURN 

FOR I@=1 TO LENCAS) 

LET J@=0 

LET XPREV%=O:LET YPREV%=3:REM STARTING POINT 
IF MIDSCAS,10,1)=CHRSC8) THEN XNWX%=-S: YNWX%=3 
?PEN=8:GOTO48220 

LET Z2%=Z%(CASC(MIDS(AS,18,1)),JO*LET J1=0 
IF 2%=@ THEN 48208 

LET XNWK=INT(Z%/1080):LET YNWX%=INTC(Z%/180)-1 


O*xXNWX 


LET Z%=100*(Z%- 1000 *xXNUWX%- 100% YNWX) 

LET PEN=0 

IF XNW% > 4 THEN LET XNWM=XNWX-SILET PEN=-1 
GOSUB 482590 

LET XPREV%=XNWX%?LET YPREV“%=YNW% 

IF 2% <> @ THEN LET J1=1:GOTO 498180 


48170 
48188 
481298 


43200 
48210 
48220 
48230 
432499 
432590 
48260 
438270 
48289 
43290 
48300 
498310 
* 98320 
* 483390 
48349 
493350 
439000 
93019 
49020 
49030 
49040 
49920 
4993930 
49948 
43959 
43960 
43378 
43930 
43985 
499390 
5a000 
50010 
Soeeeeo 
50030 
509040 
* 50050 
52060 
* 50070 
Seese 
* 50030 
50100 
* 50110 
50120 
50130 
50140 
51000 
51010 
51020 
51930 
51040 
% 51050 
51060 
* 51970 
51080 
* 51090 


IF J@=9 THEN GOTO 43290 

IF Ji=1 THEN LET J@=J@+1:GOTO 48080 

IF ZXCASC(MIDS(AS,18,1>)>,3JO+1> <> @ THEN LET 
J1=1:GOTO 431200 

REM LETTER IS DRAWN, GOTO RIGHT LOWER CORNER 
LET XNWH=SSLET YNW%=3ILET PEN=0 

GOSUB 948250 

NEXT 18 

RETURN 

REM DRAW,STRETCH AND TURN VECTOR 

LET X=(XNWM-XPREV%) 4G 

LET Y=(YNWK-YPREV%) 4G 

IF R=1 THEN XY=XixX=-YiY=xyY 

IF R=2 THEN X=-x: ¥ 

IF R=3 THEN XY=X?X=Y:Y=-xXY 

LET X=X/XS!LET Y=Y/YS 

IF PEN THEN GOSUB 4608@0:REM RL INE 

IF NOT PEN THEN GOSUB 47900:REM RMOVE 
RETURN 


REM 

REM *x#* RCHAR #4*% 

REM 

GOSUB 47000:REM RMOVE X,Y 

GOTO 48040 

REM 

REM 2 IORI ORO Ok 


REM ELSE MEN TARY MOVEMENTS 
REM EXER EE EKER EKER ERR ER ERE EERE EEE RAKE EEE 
REM 

REM VARIABLES USED IN THIS ROUTINE 
REM 

REM M1...M4,E7,E8,RE,LI,EI,AU,IN,1T,MGS 
REM XJ,YJ,XM,YM,xX8,Y@ 

REM 

REM *#*% +X-MOVEMENT 44% 

REM 

LET XJ=xXJ+1 

GOSUB 61000: REM *** OUT? #44 

IF XOUT THEN RETURN 

SYS M1L,CC:SYS M2,CW:SYS M3,CW 
GOSUB 60000:REM *«#* ET 777 448 
SYS M1,CC:SYS M2,CC:SYS M3,CW 
GOSUB 60000:REM *#* ET 777 #48 

SYS M1,CW:SYS M2,CC:SYS M3,CW 
GOSUB 6O000:REM x#* ET 77? #4" 
SYS M1,CWISYS M2,CW:SYS M3,CW 
GOSUB 60000:REM *«#* ET 777 £4” 
RETURN 

REM 

REM *#* -X-MOVEMENT *#4*% 

REM 

LET XJ=XJ-1 

GOSUB 61000: REM #** OUT? «4% 

IF XOUT THEN RETURN 

SYS M1,CW:SYS M2,CC:SYS M3,CW 
GOSUB 60000:REM *«** ET 777 ¥4e* 
SYS M1,CC:SYS mMe,CC:SYS M3,CW 
GOSUB 60000:REM *** ET 2777 *e* 
SYS M1,CC:SYS Me,CWFSYS M3,CW 


51190 
51110 
51120 
51138 
51140 
52000 
52018 
52020 
52030 
52040 
52050 
S2e060 
52070 
Seeso 
Seeso 
52190 
52118 
S5e120 
52130 
52140 
53000 
530190 
53020 
53030 
53040 
53050 
53060 
53070 
53080 
530390 
53100 
53110 
53120 
53130 
531490 
54000 
54010 
54920 
54030 
540490 
54958 
54060 
54070 
54080 
54998 
54100 
541190 
54120 
54130 
54140 
541590 
55000 
550128 
55020 
55030 
55040 
550598 
55060 
55070 


GOSUB 6@000:REM *x#* ET 77? *4* 
SYS M1,CW:SYS M2,CW:SYS M3,CW 
GOSUB 60900:REM *##* ET 777 xe 
RETURN 

REM 

REM *** +Y-MOVEMENT #%* 

REM 

LET YJ=YJ+1 

GOSUB 61008: REM x** OUT? #4% 
IF YOUT THEN RETURN 

SYS M1L,CC:SYS mMe,CW:SYS M3,CW 
GOSUB 60000:REM *** ET 777 *#4* 
SYS M1L,CC:SYS Me,CW:iSYS M3,CC 
GOSUB 6@000:REM *** ET 77? *4*% 
SYS ML,CW:SYS M2,ClWiSYS M3,CC 
GOSUB 60000:REM *** ET 777 *#x 
SYS M1,CWISYS M2,CW:SYS M3,CW 
GOSUB 60000:REM *** ET 777 xkx 
RETURN 

REM 

REM *#* -Y-MOVEMENT #** 

REM 

LET YJ=YJ-1 

GOSUB 61000: REM *** OUT? #4% 
IF YOUT THEN RETURN 

SYS M1,CW:SYS M2,CW:SYS M3,CC 
GOSUB 60000:REM *** ET 777 xe% 
SYS M1,CC:SYS M2,CW:SYS M3,CC 
GOSUB 60000:REM *«#* ET 777 *«* 
SYS M1,CC:SYS M2,CW:SYS M3,CW 
GOSUB 6@000:REM *x** ET 777 x4 
SYS M1,CW:SYS M2,CW:SYS M3,CW 
GOSUB 68000:REM x*x* ET 777 44% 
RETURN 

REM 

REM **# +X/+Y-DIAGONAL *4* 

REM 

LET XJ=KJ+1:LET YJ=YJ+t1 

GOSUB 61000: REM x** OUT? «e* 
IF XOUT THEN 52040 

IF YOUT THEN 50040 

SYS M1,CC:SYS M2,CWiSYS M3,CW 
GOSUB 60008:REM *x* ET 777 424% 
SYS M1,CC:SYS Me,CC:SYS M3,CC 
GOSUB 6@000:REM *** ET 277 *4% 
SYS M1,CWiSYS Me,CC:SYS M3,CC 
GOSUB 6O@@O:REM xxx ET 777 44% 
SYS M1,CW:SYS M2,CW:SYS M3,CW 
GOSUB 6Q000:REM *** ET 777 424% 
RETURN 

REM 

REM *#* +X/-Y-DIAGONAL #*** 
REM 

LET XJ=XJ+1:LET YJ=YJ-1 

GOSUB 61000: REM #** OUT? *4% 
IF XOUT THEN 53049 

IF YOUT THEN 50040 

SYS M1,CWISYS M2,CWiSYS M3,CC 
GOSUB 60000:REM *** ET 777 44% 


Ee Eee 


* 55@8@ SYS M1,CC:SYS M2,CW:SYS M3,CC 59050 FOR Z=1 TO 19@:NEXT 62032 DATAG,2,9,0,0,9,0,0,0,0 
55099 GOSUB 6@0@8:REM *x* ET 2722 #4% 59068 RETURN 62033 DATA2975 ,2473,0,0,9,8,0,0,0,0 
* 55109 SYS M1,CC:SYS M2,CC:SYS M3,CW 59978 REM 62034 DATA3987,1967,9,0,0,8,0,8,8,8 
5511 GOSUB 6QQ@@:REM #** ET 272 44% 69900 REM *** LIMIT SWITCH CLOSED *#* 62035 DATA1369 ,3983 ,4757,595,0,0,0,0,0,0 
* 55120 SYS M1,CW:SYS M2,CC:SYS M3,CW 60019 REM 62036 DATA2379 4788 ,6857 ,6696 ,9534 ,6455 ,9,0,8,0 
5513@ GOSUB 6@Q@00:REM #** ET 77? *4% * 69920 IF (USR(E7)=@ AND XJ <> @) OR CUSRCES)=@ AND 62037 DATAS9IOS ,5767 ,6858 ,4594 ,8485 ,9500 ,9,9,9,0 
* 5514@ SYS M1,CWSYS M2,CWISYS M3,CW YJ <> @) THEN GOTO 69049 - 62038 DATA45S73 ,6354 ,5587 ,8379 ,6958 ,5793,0,0,0,8 
5515@ GOSUB 69000:REM #** ET 227 44% 89030 RETURN 62039 DATA2Z989 ,8877,0,0,0,8,0,9,8,0 
55168 RETURN * 60949 PRINT CHR#(147);CHR#(13) "WARNING! PLOTTER IS 62040 DATA3977,7583,0,0,0,9,0,8,0,0 
5517@ REM N'T ADJUSTED"? CHR#(1497> 62041 DATAIS77,7563,0,0,0,0,0,0,0,0 
56899 REM ***x -X/+Y-DIAGONAL *** 60050 STOP 62042 DATASSE ,3864,1984,0,0,0,0,0,0,0 
56019 REM 69068 REM 62043 DATAGSE ,2874 ,0,0,0,0,9,0,0,0 
56020 LET XJ=XJ-1:LET YJ=YJ+1 61099 REM **x OUT OF RANGE ? **# 62044 DATAZ494,9372,0,8,0,0,0,0,8,0 
56038 GOSUB 61000: REM *** QUT? #%% 61010 REM 62045 DATAGIE,O,9,0,0,9,9,0,0,8 
5604@ IF XOUT THEN GOTO 52040 61920 IF ¢XOUT> OR YOUT THEN GOTO 51999 62046 DATAZ374,0,0,0,8,0,0,8,0,8 
56959 IF YOUT THEN GOTO 51040 6103@ REM LAST POSITION WAS INSIDE 62047 DATASIGO,2,2,0,0,8,0,0,0,9 
* 56Q6Q SYS M1,CWISYS M2,CC:SYS M3,CW 6104@ LET XOUT=XJ < @ OR XJ > XM 62048 DATASS7 ,6989,9795 ,8363,5500,0,0,0,0,0 
5607@ GOSUB 6000@:REM «** ET 777 *4% 61050 LET YOUT=YJ < @ OR YJ > YM 62049 DATA3363 ,2379 ,6890,0,0,0,9,9,8,0 
* 56@8@ SYS M1,CC:SYS M2,CC:SYS M3,CW 61960 IF (XOUT) OR YOUT THEN GOSUB 59030 62050 DATAS6S ,8998 ,9754 ,5393,0,0,9,0,0,0 
569399 GOSUB 6@0@00:REM *x* ET 777 ¥4% 61080 RETURN 62051 DATA869 ,8998 ,9786 , 7636 ,9594 ,8363 ,5400,0,0,0 
* 5619@ SYS M1,CC:SYS M2,CW:SYS M3,CC 6189@ REM LAST POSITION WAS OUTSIDE 62052 DATA45SS ,7939 ,8300,0,0,9,0,0,0,8 
56110 GOSUB 6@Q9@0:REM #x* ET 777 #4% 61100 LET XOUT=xJ < @ OR XJ > XM 62053 DATAIS3 ,8394 ,9687 ,6756,5999 ,0,0,0,0,0 
* 56120 SYS M1,CW:SYS M2,CWiSYS M3,CC 61110 LET YOUT=YJ < @ OR YJ > YM 62054 DATASSE ,8695 ,9483 ,6354 ,5869,8998 ,0,0,0,0 
56130 GOSUB 6@@00:REM *xe* ET 777 x¥* 6112@ IF ¢(XOUT) OR YOUT THEN RETURN 62055 DATAI9ISS,2,8,9,0,9,9,0,0,0 
* 5614@ SYS M1,CW:SYS M2,CW:SYS M3,CW 61130 IF MG$="CW"THEN GOSUB 58200 62056 DATAI657 ,5869 ,8998 ,9786 ,6655 ,5463 ,8394 ,95386, 
5615@ GOSUB 6@0@@O:REM +e ET 777 #4% 61159 RETURN 9,0 
5616@ RETURN 61990 REM ** CHARACTER SET *** 62057 DATAIG3 ,8394 ,9889,6958,5766,8697,9,8,0,0 
56170 REM 62008 DATA®,0,9,0,0,0,0,8,0,0 62058 DATA2374 ,2677,0,0,0,0,0,0,0,0 
57@00 REM *** -X/-Y-DIAGONAL ¥*** 62001 DATAQ,8,0,9,9,0,0,0,0,0 62059 DATA2675 ,2473,6200,0,0,0,0,0,0,0 
57019 REM 62002 DATAG,2,0,0,0,0,0,0,0,8 62060 DATA4S5S ,9300,0,8,0,0,8,8,0,0 
57020 LET XJ=XJ-1:LET YJ=YJ-1 62003 DATA®,0,0,0,0,0,9,0,0,0 62061 DATASIS,4757,0,0,0,0,0,0,0,0 | 
57930 GOSUB 61000: REM **x# OUT? x#* 62004 DATAQ,2,0,9,0,0,0,0,0,0 62062 DATASSE ,5300,0,0,0,0,0,0,0,0 | 
5704@ IF XOUT THEN GOTO 53040 62005 DATAQ,2,0,0,0,0,0,0,0,0 62063 DATAS6S ,8998 ,9775 ,2473,8,0,9,0,0,0 
S795@ IF YOUT THEN GOTO 510490 62905 DATAG,@,0,0,0,0,8,8,8,8 62064 DATASGS ,8394 ,8565 ,5667 ,8796 ,8517, 5869 ,8998 ,0 
* 57060 SYS M1,CW:SYS M2,CC:SYS M3,CC 62007 DATAG,2,0,0,0,0,0,0,0,0 79 
57078 GOSUB GQQ@QO:REM eee ET 277 44% 62008 DATAQ,2,9,0,0,0,8,80,0,8 62065 DATAS679 ,9693 ,4555,0,0,9,0,0,0,0 
* 57080 SYS M1,CC:SYS Me,CC:SYS M3,CC 62099 DATAG,2,0,0,0,0,0,0,8,0 62066 DATAS394 ,9586 ,6636 ,9798 ,8959, 1963,9,9,9,0 
5709@ GOSUB 6Q900:REM ee ET 277 44% 62010 DATA®,0,0,0,0,9,9,8,0,8 62067 DATASS89 ,6958 ,5463 ,8394,0,0,0,0,0,0 
* 57188 SYS M1,CC:SYS M2,CW:SYS M3,CW 62011 DATA®,0,0,0,9,0,0,0,0,0 62968 DATAS394 ,9889 ,5919,6308,0,0,8,0,0,8 
57118 GOSUB 600@0:REM #8 ET 777 *4% 62012 DATA®,8,0,0,0,0,0,0,0,8 62069 DATASS9S ,3656 ,393,0,0,0,0,0,0,0 
* 57120 SYS M1,CW:SYS M2,CW:SYS M3,CW 62013 DATAQ,2,0,0,0,0,0,0,8,0 62070 DATASS9S ,3656,0,0,0,8,8,0,0,0 
57130 GOSUB 69000:REM #*x* ET 777 #4* 62014 DATAO,9,0,0,0,8,8,0,0,8 62071 DATA4889 ,6958 ,5463,38394 ,9676 ,0,0,0,0,0 
57140 RETURN 62015 DATAD,O,0,0,0,0,0,0,8,0 62072 DATASSOE ,9649 ,9300,0,0,0,9,0,0,8 
5715@ REM 62016 DATAD,9,0,0,0,0,8,0,0,8 62073 DATA1383,2379,1989,0,0,0,0,0,0,0 | 
58000 REM «** MG-ON *** 62017 DATAQ,8,0,0,0,0,0,0,0,0 62074 DATA463 ,7384 ,8929 ,9900,0,09,0,0,0,0 
58019 REM 62018 DATA®,0,0,0,0,0,0,8,8,8 62075 DATASSOE ,9906 ,9300,0,0,0,0,0,0,8 
58020 LET MG$="0N" 62019 DATAQ,8,0,0,0,0,9,0,0,0 62076 DATASS3,9300,0,0,0,0,0,0,0,0 
58030 IF ¢XOUT) OR YOUT THEN RETURN 62020 DATAD,2,0,0,0,0,0,0,0,8 62077 DATASS76 ,9993,0,0,0,8,0,0,0,0 
* 58040 SYS INIT 62021 DATAD,2,0,0,0,0,0,0,0,8 62078 DATASSS3,9900,0,8,0,0,0,0,0,0 
58@59 FOR Z2=1 TO 49@:NEXT 62022 DATAQ,8,8,0,0,0,0,0,0,8 62079 DATA45S ,6989 ,9894 ,8363,5400,0,0,9,0,0 
* 58060 SYS m4,CW 62923 DATA®,8,0,0,9,0,0,0,8,0 62988 DATAL369,989 ,9897 ,S666 ,0,0,0,0,0,0 
* 58070 FOR Z=1 TO 100:SYS M4,CW:NEXT 62024 DATAQ,9,9,0,0,0,8,0,8,8 62081 DATA4SS ,6989 ,9894 ,8363 ,5425,9300,0,8,0,0 
58080 RETURN 62825 DATA®,8,9,0,0,0,0,0,0,0 62982 DATA1369,989 ,9897 ,8666 ,2693 ,9,0,0,0,0 
53090 REM 62026 DATAG,2,8,0,9,0,0,8,0,8 62083 DATA4S3 ,8394 ,9586 ,6657 ,5869 ,8998,0,8,8,0 
59020 REM *** MG-OFF *** 62027 DATAD,O,0,0,0,0,0,0,8,0 62934 DATAZ379,999,0,9,0,0,9,8,0,0 
59919 REM 62028 DATAQ,2,0,0,0,9,0,0,0,8 62085 DATAIS4 ,6383 ,9499 ,0,0,0,0,0,0,0 
59020 LET MG$="OUT" 62029 DATAQ,9,0,0,0,0,0,8,0,0 62986 DATAS73,9990,0,9,0,0,9,0,0,0 
* 53939 SYS M4,CCW 62039 DATAO,2,0,0,0,8,8,8,8,8 62087 DATASSES ,6375 ,8396 ,9900,0,0,0,0,0,0 
* 53949 SYS M4,0FF 62031 DATAG,O,0,0,0,0,0,0,0,0 62088 DATASS3 ,4953,0,9,9,0,8,0,0,0 


23 


62089 DATAIY7E , 7326 ,9900,9,0,0,0,0,9,0 62147 DATA®,2,0,0,0,9,0,0,0,8 62286 DATAQ,2,0,9,9,0,0,0,0,0 
62098 DATASSS 5393 ,9,0,0,0,8,0,8,8 52148 DATAG,9,9,0,9,0,0,0,0,0 62207 DATAG,2,9,0,8,8,0,0,0,0 
62091 DATAS67S ,9693 ,4555,958,4998 ,0,9,0,0,0 62149 DATAQ,2,0,0,0,9,9,0,0,8 62208 DATAQ,2,0,0,0,0,0,0,0,0 
62092 DATASS7 ,6888 ,9794 ,8363 ,54939 ,5849 ,9800,29,0,0 62150 DATA®,2,0,0,9,0,9,9,0,0 62293 DATAQ,2,9,0,8,0,0,0,0,8 
62093 DATAIS4 ,6383 ,9499 ,1968,3988 ,0,0,0,8,0 62151 DATA®,2,0,0,8,9,0,0,0,8 62210 DATAG,9,0,0,8,0,0,0,0,0 
62094 DATA773 ,9700,0,0,0,0,0,0,8,8 62152 DATAQ,9,8,0,0,0,9,9,0,0 62211 DATAG,9,9,8,0,0,8,9,0,0 
62095 DATASO,2,0,0,0,0,0,0,0,0 62153 DATAG,2,0,0,0,0,0,0,0,0 62212 DATAQ,2,0,0,0,0,0,0,0,0 
62896 DATA3979,7887 ,2,0,0,0,0,0,0,8 62154 DATAQ,2,9,0,0,0,9,0,0,0 62213 DATA®,9,0,0,0,0,0,0,0,0 
62097 DATAGE7 ,8796 ,9345 ,6554 ,6383 9400 ,0,0,0,0 62155 DATA@,0,9,9,0,0,0,0,0,0 62214 DATAD,9,0,0,9,0,0,0,0,0 
62098 DATAISS ,667 ,8796 ,9483,6354 ,0,8,0,0,8 62156 DATA®,9,0,0,0,0,0,0,0,0 62215 DATAG,9,0,0,0,0,0,0,0,0 
62099 DATA46S87 ,6756 ,5463 ,8394 ,9,0,0,0,0,0 62157 DATAG,9,0,0,0,0,0,0,0,0 62216 DATAD,9,0,0,0,0,0,0,0,0 
62190 DATAS993 ,4687 ,6756 ,5463 ,8394 ,8,9,0,0,8 62158 DATAO,2,8,0,0,0,0,0,0,0 62217 DATAG,9,9,0,8,0,0,0,0,0 
62191 DATASS85 ,9687 ,6756 ,5463 ,8394 ,9,0,0,0,0 62159 DATA®,9,0,0,9,0,0,0,0,8 62213 DATAQ,9,0,0,0,0,0,0,0,0 
62102 DATA2378 ,8999 ,3666,0,0,0,0,0,0,0 62160 DATAQ,2,0,8,0,0,0,0,0,9 62219 DATAO,2,9,0,0,0,0,0,8,0 
62103 DATA261,8192 ,9687,6756 ,5463 ,8394 ,0,0,0,0 62161 DATA®,9,0,0,0,9,9,0,8,8 62220 DATAQ,2,0,0,0,0,0,0,0,0 
62104 DATASSO6 ,6787 ,9693,0,0,0,0,0,0,0 62162 DATAQ,2,0,8,0,0,0,0,0,0 62221 DATAG,2,0,0,9,9,0,0,0,0 
62105 DATA3363 ,2377 ,6728 ,7900 ,8,0,8,0,0,0 62163 DATAQ,9,0,0,0,0,0,0,0,0 62222 DATAQ,O,0,0,0,9,0,0,0,0 
62106 DATAIG1,7277 ,6728,7908,0,0,0,0,8,0 62164 DATAQ,2,0,0,0,0,0,0,0,0 62223 DATAG,2,0,9,0,0,0,0,0,0 
62107 DATA1963,1597,1593,0,0,0,0,0,0,0 62165 DATAQ,2,9,8,9,9,0,0,0,0 62224 DATAQ,2,0,0,0,0,0,9,0,0 
62108 DATA3@3 ,3363 ,2379 ,6900,0,0,0,0,0,0 62166 DATAQ,2,0,9,0,0,90,0,9,0 62225 DATAG,2,0,0,0,0,0,0,0,8 
62189 DATAS787 ,9693 ,2377,0,0,09,9,0,0,0 62167 DATAO,0,0,8,8,9,0,0,0,8 62226 DATAQ,9,0,9,9,0,0,0,9,0 
62110 DATA7S3,667 -8796 ,9300 ,0,0,0,8,0,0 62168 DATAO,2,0,0,0,0,0,0,0,0 62227 DATAD,0,0,0,0,0,0,0,9,0 
62111 DATA4S6 6787 ,9694 ,8363 5490 ,0,9,0,0,0 62169 DATAQ,2,9,0,0,0,0,8,0,0 62228 DATAQ,0,0,0,0,0,0,0,0,8 
62112 DATA1L57 ,667 8796 ,9483 ,6354 ,8,9,0,0,0 62170 DATAQ,2,8,0,0,0,0,0,0,0 62229 DATAQ,0,0,0,8,0,0,8,0,0 
62113 DATA4197 ,4687 ,6756 ,5463 ,8394 ,8,8,0,0,0 62171 DATAG,9,9,0,0,0,8,0,0,8 62238 DATAG,9,0,9,9,0,0,9,0,9 
62114 DATAS7Q6 ,6787 ,9609,9,0,0,0,0,0,8 62172 DATAO,2,8,0,0,0,0,0,0,0 62231 DATAQ,O,0,0,0,9,9,0,0,8 
62115 DATA463,8394 ,8565 ,5667 ,8796 ,0,0,0,0,0 62173 DATAQ,9,0,8,9,9,0,9,0,0 62232 DATAQ,O,8,0,2,8,8,0,8,0 
62116 DATALG86 ,2973 ,8300,8,0,9,9,0,0,8 62174 DATAQ,2,0,0,0,0,0,0,0,0 62233 DATAG,0,0,9,0,0,0,0,0,0 
62117 DATA7S4 6383 ,9447 ,9300,9,9,9,8,8,0 62175 DATAG,2,9,8,0,0,0,0,0,8 62234 DATAG,2,9,9,9,0,0,9,9,0 
62118 DATA773,9799 ,9,0,9,0,8,8,9,0 62176 DATAQ,2,8,0,0,0,9,0,0,0 62235 DATAG,9,0,0,8,0,9,0,0,0 
62119 DATA7SS 6375 ,8395 ,9700,8,9,9,0,0,0 52177 DATA®,9,9,0,0,0,9,0,0,8 62236 DATAG,2,0,0,8,8,0,0,8,0 
62120 DATA7S3,397 ,9,9,0,0,0,0,8,0 62178 DATA®,8,2,9,9,0,0,0,0,0 62237 DATAQ,9,8,0,9,0,0,0,8,8 
62121 DATA773,4761,0,0,0,0,0,0,0,0 62173 DATAG,9,0,8,0,0,0,0,0,8 62238 DATAG,9,0,0,0,0,0,8,0,0 
62122 DATA7S7,5393,0,9,0,0,0,9,8,8 62180 DATAQ,2,0,0,0,0,0,0,0,0 62239 DATAD,2,2,0,0,9,0,0,0,8 
62123 DATAS67 ,8796 ,9345 ,6554 ,6383 ,9419,6839 ,8800,0 62181 DATA®,2,8,0,0,0,0,0,0,8 62248 DATAD,9,0,0,0,0,0,0,0,0 
8 62182 DATAQ,0,8,0,0,0,0,0,0,0 62241 DATAG,2,0,0,0,0,8,0,0,8 
62124 DATA4SS ,6787 ,9694 ,8363 ,5439 ,8819 ,6800,9,0,9 62183 DATAQ,8,9,0,0,0,0,0,0,8 62242 DATAG,9,9,0,9,9,0,9,0,0 
62125 DATA398S,, 1968 ,754 ,6383 ,9447 ,9308,0,0,0,8 62184 DATAO,0,0,0,0,0,0,0,0,0 62243 DATAG,0,0,0,8,9,0,8,0,0 
62126 DATASS69 ,8998 ,9786 , 7636 ,9594 ,8373 ,6490,0,0,0 62185 DATAG,9,0,0,0,0,0,9,0,0 62244 DATAQ,O,0,0,0,0,0,0,0,0 
62127 DATAG,8,8,0,0,0,0,9,0,0 62186 DATAG,9,0,9,0,0,0,0,0,0 62245 DATAQ,2,0,0,0,0,0,0,0,8 
62128 DATAG,2,8,0,9,0,9,0,0,0 62187 DATAQ,0,9,8,0,0,0,0,0,8 62246 DATAQ,9,0,0,0,0,0,0,0,0 
62129 DATAQ,0,9,8,8,0,8,8,0,8 62188 DATAQ,0,8,0,0,0,0,0,9,0 62247 DATAG,2,0,0,0,0,0,0,0,0 
62130 DATAD,2,8,0,0,0,0,0,0,0 62189 DATAO,2,9,8,0,9,8,0,0,8 62248 DATAD,2,0,8,0,0,0,0,0,0 
62131 DATAQ,2,0,0,0,0,8,0,0,8 62190 DATAQ,O,0,0,0,0,0,0,0,0 62249 DATAQ,O,0,0,0,0,0,0,0,8 
62132 DATAQ,®,0,0,0,0,0,0,0,0 62191 DATA®,9,0,8,0,0,8,0,0,8 62250 DATAQ,2,0,0,0,0,0,0,0,0 
62133 DATAQ,O,0,8,0,0,0,8,0,0 62192 DATAQ,0,0,0,0,0,0,0,0,0 62251 DATAQ,0,0,0,9,0,0,0,9,0 
62134 DATAQ,%,8,0,9,0,0,9,0,0 62193 DATAG,0,0,0,0,0,8,8,0,8 62252 DATAD,9,0,0,0,0,0,0,0,0 
62135 DATA®,9,0,0,0,0,9,8,0,8 62194 DATAO,0,0,0,0,0,0,0,0,8 62253 DATAD,9,0,0,9,0,0,0,0,0 
62136 DATA®,2,0,9,0,0,0,0,0,0 62195 DATAQ,2,0,0,0,0,0,0,0,8 62254 DATAQ,2,0,9,0,0,0,0,0,0 
62137 DATAQ,9,0,0,0,8,0,0,0,8 62196 DATAD,0,0,0,0,0,0,0,0,0 62255 DATAG,O,9,8,0,9,9,0,0,0 
62138 DATAQ,®,8,8,0,9,0,8,0,0 62197 DATAQ,0,9,8,0,9,0,0,0,8 63000 DEF FN X(Z>=135+104Z 
62139 DATAG,8,0,9,9,0,8,0,0,8 62198 DATAG,2,8,0,9,8,0,0,0,0 63018 DEF FN Y(2)=150-1042 
62140 DATAD,2,0,0,0,0,0,0,0,0 62199 DATA®,2,0,0,0,0,0,9,0,8 63015 REM USE THIS PROGRAM WITH GOTO 63000 
62141 DATA®,%,0,8,0,9,0,0,0,0 62200 DATAO,2,0,0,0,0,0,0,0,0 * 63020 PRINT CHR#¢147) 
62142 DATAG,0,0,0,0,9,9,9,0,0 62201 DATAO,0,8,0,0,0,8,0,0,8 63030 PRINT" CHARACTER DESIGN PROGRAMM * 
62143 DATAQ,9,9,9,0,0,8,0,0,8 62202 DATAQ,0,0,0,0,0,8,0,0,8 63032 PRINT 
62144 DATAO,%,20,8,0,0,0,0,0,0 622803 DATAO,0,8,0,0,0,0,0,0,8 * 63035 PRINT"PROGRAM NEEDS 'SIMONS BASIC'" 
621945 DATAD,8,8,9,0,9,0,0,0,8 62204 DATAG,2,0,0,0,0,0,0,0,0 63048 PRINT:PRINT" FUNCTION DESCRIPTION" 
62146 DATAG,O,8,0,0,0,0,0,0,0 62205 DATAG,2,0,0,0,0,9,9,0,8 63050 PRINT?PRINT”" CRSR UP La ag 
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63060 
63070 
63080 
63090 
63100 
63110 
63120 
63130 
63149 
63150 
63160 
63170 
63180 
63190 
63200 
63210 
63220 
63230 
63240 
63250 
63260 
63270 
63280 
63290 
63300 
63310 
63320 
63330 
63340 
63350 
63360 
63370 
63380 
63390 
63400 
63410 
63428 
63430 
63440 
63450 
63469 
63470 
63480 
63490 
63500 
63510 
63520 
63530 
63540 
63550 
63560 
63579 
63580 
63530 
63600 
63619 
63620 
63630 


PRINT:PRINT*® CRSR DOLIN : DOWN 
PRINT:PRINT" CRSR LEFT : LEFT 
PRINT:PRINT" CRSR RIGHT = RIGHT 


PRINT:PRINT" L 
PRINT:PRINT" M 
PRINT?PRINT" C 
PRINT:PRINT" CR 
PRINT?PRINT" X 
DIM S%¢19) 
INPUT" ASCII CODE OF CHARACTER (0-255)";7ZN 
IF 2N<@ OR ZN>255 THEN GOTO 63150 

FOR 158 TO 19°LET SXCI)=@:NEXT:LET I%=0 
HIRES1L,O@ 

FOR Y=@ TO 9 

FOR X=0 TO 4 

PLOT FN X(X),FN YCY),1 

NEXT 

NEXT 

LET X=@:LET Y=3 

LET XO=xX!LET YO=Y 

CIRCLE FN XC(X),FN YCY),2,2,1 

GET AS: IF AS="" THEN 63270 

IF AS=CHR#(145> THEN GOSUB 63380 

IF AS=CHR$C17) THEN GOSUB 63430 

IF AS=CHRSC29) THEN GOSUB 63480 

IF AS=CHR$C157)> THEN GOSUB 63530 

IF AS="C" THEN GOTO 63170 

IF AS="K" THEN STOP 

IF AS=CHR#C13) THEN GOTO 63670 

IF A M" THEN GOSUB 63580 

IF AS="L" THEN GOSUB 63588 

GOTO 63270 

IF Y=9 THEN RETURN 

CIRCLE FN X¢{X),FN YCY),2,2,0 

LET Y=Y+1 

CIRCLE FN X¢X),FN YCY),2,2,1 

RETURN 

IF Y=@ THEN RETURN 

CIRCLE FN X(X),FN YCY),2,2,8 

LET Y=Y-1 

CIRCLE FN X(X),FN YCY),2,2,1 

RETURN 

IF %=4 THEN RETURN 

CIRCLE FN X¢(X),FN YCY),2,2,8 

LET X=K+1 

CIRCLE FN X(X),FN YCY),2,2,1 

RETURN 

IF X=@ THEN RETURN 

CIRCLE FN X¢X),FN YCY),2,2,8 


=LINE FROM LAST POINT" 
?MOVE FROM LAST POINT" 
?CLEAR SCREEN" 

fACCEPT CHARACTER" 
tEXIT "PRINT 


LET X=X-1 
CIRCLE FN X¢(X),FN YCY),2,2,1 
RETURN 


IF I%=139 THEN GOTO 63670 

IF AS="L" THEN S%(1%)=50 

LET SACIZ)=SHCIXA) +1OaKtY 

LET I%s1%+1 

CIRCLE FN X{X),FN YCY),2,2,0 

IF AS="L" THEN LINE FN XCXO),FN YCYO),FN X¢ 


xO,FN YCV),1L 


63640 LET XO=xX:LET YO=Y 

63650 CIRCLE FN X(X),FN YCY),2,2,1 
63660 RETURN 

63670 FOR I=8 TO 18 STEP 2 


63680 


IF S%C1)=0 THEN DS(1/2)="O0"2NEXT:GOTO 63770 


63690 LET AS=STRS(SZCI)) 


63700 
63710 
63720 


LET BS=STRS(SX%CI+1)) 
IF LENCAS)=1 THEN AS="O"+AS 
IF LEN(B$)=1 THEN BS="0"+BS 


63730 DS$(1/2)=ASt+BS 
637990 LET AS=""LET BS="" 
63750 LET D#¢(1/2)=MIDS(D0$( 172) ,2,2)+MIDS(DS(1/2),5 


72) 


63760 NEXT 
63770 LET AS=STRS(G62000+ZN) + "DATA" +DS(O)+","+DSC1) 


+", "4DS(2)+","4+DS(3>+","+DS(4) 


63780 AS=ASt+","+DS(5) +", "+DS(6)+","+D0SC(7)+","+DB(8 


+" ,°+DSC9> 


63790 PRINT“ INSERT THE LINE BELOW IN YOUR” 
63300 PRINT"PROGRAM BY MOVING THE CURSOR" 
63810 PRINT“ON IT AND PRESS >RETURNC.” 
63828 PRINT AS 


Prog. FUNCTION 


1000 
1018 
1920 
10308 
1190 
1110 


1111 
1112 
1113 
1115 
1117 
1120 
1138 
1140 
1158 
1160 
1178 
1180 


DEF FNY(X)=SINCK) #EXP(-x/10) 
LET FS="SINCX)#*EXPC-X/10)" 
LET XA=@: LET XE=62.8 

REM 

REM *** PROGRAM 
PRINT: PRINT” 


"FUNCTION" #** 
Fors CHE R TE 6 HN? 


K * 
PRINT? PRINT” SO MP UT FN 6* 
PRINT 

PRINT" ONE-DIMENSIOAL FUNCTION PLOT” 


PRINT CHRS(29)7 

PRINT FS 

REM CALCULATE MIN ANDO MAX OF THE FUNCTION 
LET MI=FNYCXAD 

LET MA=FNY(xA) 

FOR X=xXA TO XE STEP (XE-XA)/200 

IF FNY<X)>MA THEN LET MASFNYCX) 

IF FNYCX)<MI THEN LET MI=FNY¢(X) 

NEXT X 


1190 
1200 
1210 
1220 
1230 
1290 
1250 
1260 
12708 
1288 
1298 
1300 
1318 
1320 


1330 
1340 
1350 
1360 
1370 


LET X1=xXA-CKE-xKA)/20 

LET X2=xXE+¢XE-xA)/20 

LET Y1=MI-CMA-MI) 720 

LET Y2=MA+(MA-MI1)/20 

LET XA=10! LET KE=KM-10 

LET YA=1@: LET YE=YM-10 

LET X$="X" 

LET Y¥: s 

LET SK=1 

GOSUB 22080: REM DRAW AXES 
LET X=X1+(X2-xX1)/722 

LET Y=FNY(X)> 

GOSUB 450900: REM GO TO START 
FOR X@=X1+¢X2-xX1)/22 TO X2-(K2-K1)/22 STEP (x 
2-x1)7220 

LET X=xX@!: LET Y=FNY(X) 

GOSUB 44900 

NEXT XO 

GOSUB 40000 

ENO 


Prog. PARAM.F 


1908 
1018 
1928 
1030 
1048 
1050 
1960 
1078 


1080 
1100 
11108 
1111 
1113 
1114 
1115 
1120 
1138 


1140 
1158 


DEF FNX(T)=COSC(T) 

DEF FNYCT)=SINCT) 

LET F#="CIRCLE"* 

LET TAS@: LET TE=6.28: LET TS=@.1 
REM LOOP FROM @ TO 24 STEP 0.1 
LET AX=1: LET SK=1 

REM DRAW AXIS AND SCALE THEM 


LET XA=-1.1: LET XE=1.1: LET YA=-1.1% LET YE= 
1.1 

REM 

REM *x** PROGRAM "“PARAM.F" ***# 

PRINT" FISCHER TECH NF K* 
PRINT:PRINT" CcOmPrpurT 1. N 6 


PRINT:PRINT" TWO 
PRINT CHR#(29);7 
PRINT FS 

REM SAME SCALE FOR X AND Y 

REM BOX XA,YA,XE,YE IN THE MIDOLE OF THE PAPE 
R 

REM 

IF (XE-KA)*YM>CYE-YA)#XM THEN GOTO 1190 


- DIMENSIOAL FUNCTION PLOT * 
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1160 
1170 
1180 
1190 
1200 
1218 
1220 
1230 
1249 
1250 
1268 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1378 


LET YS=YM/CYE-YA)! LET YH=-YAXxYS 
LET XS=YS! LET XH=C(XM-CXE+tXA) &XS) “2 
GOTO 1218 

LET & M/CXE-KXAD? LET XH=-KAKXS 
LET YS=xXS: LET YH=(YM-CYE+YA)*#YS)/2 
IF AX=@ THEN GOTO 1258 

LET X1=xXA: LET X@=xXE: LET Y1=YA: 
LET X$=F$: LET Y$=" " 

GOSUB 22000 

LET X=FNXC(TA) 

LET Y=FNYCTA) 

GOSUB 45800: REM GOTO START 

FOR T=TA TO TE STEP TS 

LET X=FNKX¢T) 

LET Y=FNYC(T) 

GOSUB 440090 

NEXT T 

LET X=FNX¢TE) 

LET Y=FNY(TE? 

GOSUB 44000 

GOSUB 40000 

END 


LET Ye=VvE 


Prog.D3 


1000 
1010 
1011 
1013 


1014 
1015 
1020 
1930 
1048 
1050 
1060 
1070 
1080 
1100 
1110 
1120 
1130 
1140 
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REM *#* PROGRAM 'D3' #** 


PRINT" F 2-8 CW ERO TE Cla) Neb" 
PRINT:PRINT" come U TF TN /s* 
PRINT:PRINT" PLOT OF A THREE - DIMENSIONAL OB 
JECT" 

PRINT CHR#(29)?7 

PRINT FS 


DIM X¢(100,3) 

REM RRR RRR ERR EERE EERE EER EK 
LET 1-0 

READ XC1,1),KC1,2),X¢€1,3),XC1,8) 


IF K¢C1I,@)=-1 THEN GOTO 1100 
LET I=I+1 

GOTO 18590 

PRINT CHR#C147) 


PRINT“PROJECTION ANGLE IN DEGREES: * 
INPUT " THE T! TH: LET TH=ATN(C1)*TH/45 
INPUT“PHI PH: LET PH=ATN(C1)*PH/45 
LET N1=SINCTH) *COS (PH) 


115@ LET N2@=SINCTH) #SINCPH) 

1160 LET N3=COS‘TH) 

1170 LET N@=SQR(N1#N1 +N2*N2 > 

1188 LET I=@: REM DETERMINE THE SIZE OF THE PICTUR 
E 

1198 IF X¢1I,@)=-1 THEN GOTO 1280 

1208 GOSUB 1430 

1210 IF 1=@ THEN LET XA=K!XE=K:YA=Y:YE=Y:GOTO 1260 

1220 IF X<XA THEN LET XA=xX 

1230 IF X>KE THEN LET XE=X 

1240 IF Y<YA THEN LET YA=Y 

1250 IF Y>YE THEN LET YE=Y 

1260 LET I=I+tt 

1270 GOTO 1198 

1280 REM SAME SCALE ON BOTH AXES 

1285 REM PICTURE IN THE MIDDLE OF THE PAPER 

1290 IF CKE-KA)*YM>CYE-YA)*KM THEN GOTO 1330 

1300 LET YS=YM/CYE-YA)! LET YH=-YA*YS 

1310 LET XS=YS! LET XH=(KM-CKE+KA) #XS)72 

1320 GOTO 1350 

1330 LET XS=KM/CKE-xKA)D! LET XH=-xXARKS 

1340 LET YS=xS! LET YH=CYM-CYE+YA)*YS)/2 

1350 LET 1=@ 

1360 IF XCI,@)=-1 THEN GOTO 1410 

1378 GOSUB 1430 

1380 ON XCI,@)+1 GOSUB 45000,44900: REM MOVE OR LI 
NE 

1390 LET I=I+1 

140@ GOTO 1360 

1418 GOSUB 49000 

1420 END 

1438 REM ORTHOGONAL PROJECTION ON THE PLANE (N1,N2 
7N3) 

1440 IF ABS(N@)<®@.01 THEN GOTO 1480 

1450 LET X=(XC1,1)#N@-XC1,2)*N1L>/NO 

1960 LET Y=(XC1,3)-CKCT, 1) #N1+K CT ,2)*N2+K 01,3) *N3) 
*N3) /NO 

1470 GOTO 1510 

1480 REM PROJECTION PARALLEL TO THE Z-AXIS 

1490 LET X=xXCI,1) 

1500 LET Y=xC1I,2) 

151@ RETURN 

62300 REM 

62301 REM EDGES OF THE 3-DIMENSIONAL OBJECT 

62302 REM 


62303 REM THE FIRST THREE NUMBERS ARE THE X-,Y- 
62304 REM AND Z-COORDINATES OF THE OBJECT EDGES. 


62305 REM THE FOURTH NUMBER IS 


1 WHEN THE EDGE IS 
LINKED BY A LINE WITH 


62306 REM THE PREVIOUS EDGE, OTHERWISE THE NUMBER 


62397 REM FOR THE LAST ENTRY IN THE 


Is @. 
TABLE THIS VA 
LUE IS -1 


62308 REM 
62309 REM 
62310 DATA 2,2,0,0 


62311 DATA 
62312 DATA 
62313 DATA 


10,2,0,1 
19,19,0,1 
2,18,0,1 


62314 
62215 
$2316 
62317 
62318 
62313 
62320 
62321 
§2322 
s§e3e3 
62324 
62325 
62326 
62327 
62328 
62329 
62330 
62331 
62332 
62333 
62334 
62335 
62336 
62337 
62338 
62339 
62340 
62341 
62342 
62343 
62344 
62345 
62346 
623497 
62348 
6234993 
62350 
62351 
62352 
62353 
62354 
62355 
62356 
62357 
62358 
62359 
62360 
62361 
62362 
62363 
62364 
62365 
62366 
62367 
62368 
62369 
62370 
62371 
62372 


19,10,0,1 
10,19,3,9 
2,18,3,1 
2,10,0,1 
2,10,3,0 
2,2,3,1 


s 


s 


. 
. 


. 


. 
y 
. 


. 


. 


. 
S 


. 


. 


. 


. 


. 


. 


. 
. 
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682373 DATA 8,8,9,1 570 REM 52000 +Y-SCHRITT 1390 NEXT Y 
62374 DATA 3,8,3,0 580 REM 53000 -Y-SCHRITT * 1408 SYS INIT ?REM SWITCH EVERYTHING OFF 
62375 DATA 4,8,3,1 538 REM 69000 LIMIT SWITCH? 1418 REM SAVE 
62376 DATA 4,9,3,1 600 REM 1420 PRINT:PRINT"RECORDING FINISHED" 
62377 DATA 3,9,3,1 * 618 PRINT CHR#(147) 1430 INPUT"F ILENAME ";7F% 
62378 DATA 3,8,3,1 620 PRINT"FISCHERTECHNIK” 1440 IF FS="" THEN ENO 
623739 DATA 3,8,9,1 630 PRINT"“COMPUTING* * 1459 OPEN 15,8,15 
62388 DATA 4,8,9,1 648 PRINT * 1460 OPEN 1,£,2,F¢+",W" 
62381 DATA 4,8,3,1 650 PRINT"SCANNER-INITIALISATION" * 1970 INPUT#15,FF,FBS 
62382 DATA 4,8,9,0 668 GOSUB40000 :REM HOME * 19480 IF FF>® THEN GOTO 1620 
62383 DATA 4,9,9,1 67@ FOR Z=1 TO 4 * 1490 PRINT#1 ,XE 
62384 DATA 4,9,3,1 680 GOSUB 50000 : GOSUB 529000 * 1500 PRINT#1,YE 
62385 DATA 4,9,9,0 690 NEXT Z * 1510 PRINT#1L,GH 
62386 DATA 3,9,9,1 1000 REM FISCHERTECHNIK COMPUTING * 1520 PRINT#1,GL 
62387 DATA 3,9,3,1 1010 REM 1530 FOR Y=0 TO YE 
62388 DATA 3,9,9,0 1920 REM SCANNER 1549 FOR X=® TO XE 
62389 DATA 3,8,9,1 103@ REM * 1550 PRINT#1,G%CX,Y) 
82390 DATA 0,8,9,0 1840 REM COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 198 1560 NEXT X 
62391 DATA 12,0,9,1 3 1570 NEXT Y 
62392 DATA 12,12,9,1 1050 REM * 1580 CLOSE 1 
62393 DATA 0,12,9,1 1069 REM FUNCTION: * 1598 CLOSE 15 
62394 DATA 0,8,9,1 1870 REM PROGRAM RECORDS GREY TONES WITH A LDR 1600 ENO 
62395 DATA 8,0,11,1 188@ REM AND STORES THEM ON DISK. 1619 REM ERROR MESSAGE 
62396 DATA 12,0,11,1 1030 REM DATA OF THE PICTURE * 1620 CLOSE 1 
62397 DATA 12,8,9,1 1100 DIM Gx%C159,99) * 1630 CLOSE 15 
62398 DATA 12,0,11,0 * 1110 LET E=8 *REM FLOPPY DISK * 1640 PRINT"DISK ERROR: "FBS 
62399 DATA 12,12,11,1 * 112@ REM FOR CASSETTE: LET E=1 AND DELETE LINES 14 1650 INPUT"NEW ATTEMPT (Y/N) "7S 
62408 DATA 12,12,9,1 70, 1660 IF S#="Y" THEN GOTO 1430 
62491 DATA 12,12,11,0 1130 REM 1480, 1590 AND 1610-1670 1670 ENO 
62402 DATA @,12,11,1 1140 LET GH=@:GL=255 +REM MIN AND MAX OF BRIGHTNES 2008 REM FORWARD 
62403 DATA @,12,9,1 $s 2010 FOR X=XE TO @ STEP -1 
62404 DATA 9,12,11,8 115@ PRINT:PRINT"PUT THE PICTURE IN THE SCANNER" 2020 GOSUB 4900:REM MEASURE GREY TONE 
62405 DATA @,0,11,1 1168 PRINT"WITH THE LEFT BOTTOM CORNER UNDER THE 2030 FOR Z=1 TO 4 
62406 DATA 0,8,0,-1 HEAD OF THE SCANNER.” 2099 GOSUB 51000 :REM -x-STEP 
1170 PRINT:PRINT*POSITION THE LOR VIA THE CURSOR K 2050 NEXT Z 
EyYs* 2060 NEXT X 
1188 PRINT"“IN THE RIGHT TOP CORNER. 2870 RETURN 
1185 PRINT“WHEN READY PRESS >RETURN< 3000 REM BACKWARD 
1198 GET S* 3010 FOR X=@ TO XE 
* 1200 IF S#=CHR#$(29) AND XJ<640 THEN GOSUB 50000 30920 FOR Z=1 TO 4 
* 1210 IF S#=CHR#C157) THEN GOSUB 51000 3830 GOSUB 50000 :REM +X-STEP 
* 1220 IF S#=CHR#(17) THEN GOSUB 53000 3040 NEXT Z 
* 1230 IF S#=CHR#(145) AND YJ<4@0 THEN GOSUB 52000 3050 GOSUB 4900:REM MEASURE GREY TONE 
* 1240 IF S$=CHR#(13> THEN GOTO 1260 3060 NEXT X 
125@ GOTO 1190 3070 RETURN 
1260 LET KE=INTCXJ/4)-1 *REM BORDER OF THE PICTURE 4000 REM MEASURE GREY TONE 
1278 LET YE=INTCYJ/4)~-1 * 40919 SYS INIT !REM MOTORS OFF 
Prog. SCANNER 1280 PRINT:PRINT"CAUTION! RECORDING" 4020 FOR 2=8 TO 20 
* 1285 GXSUSRCEY)! REM DON'T USE THE FIRST VALUE * 4030 SYS M4.ClI) :REM LAMP ON 
1290 REM SCAN LOOP 4049 REM WAIT FOR FULL BRIGHTNESS 
1300 FOR Y= TO YE 4050 NEXT Z 
1310 REM FORWARD * 4060 Gx=USRCEY) 

x 5008 SYS INIT 1320 IF Y=INTCY/2)#2 THEN GOSUB 2000 * 4970 SYS M4,0FF =?REM LAMP OFF 
510 REM 1330 REM BACKWARD * 4080 IF G%=0 THEN LET G%=255 =REM ONLY C64,VC28,AC 
520 REM PLOTTER COMMANDS: 1340 IF Y>INTCY/2)*2 THEN GOSUB 3000 ORN 
530 REM 40000 HOME 1358 REM GO TO NEXT LINE 4990 IF G%>255 THEN LET Gx=255 
548 REM PLOTTER MOVEMENTS: 1360 FOR Z=1 TO 4 4100 IF G%>GH THEN LET GH 
55@ REM 50000 +X-SCHRITT 1378 GOSUB 53000 94110 IF G%<GL THEN LET GL=G% 


56@ REM 510900 -X-SCHRITT 1380 NEXT Z 9128 GXxCX,Y)=6% 


see 


4130 RETURN 


40000 
90019 
40930 
40050 
40060 
40070 
40030 
490100 
401108 
49129 
40138 
401490 
Seeae 
500190 
5a020 
50040 
50050 
350060 
50070 
Seose 
50030 
50100 
Sea118 
50120 
50138 
50140 
510008 
51019 
51020 
51040 
51058 
51060 
51078 
51080 
51098 
51100 
51118 
51120 
51138 
51140 
52000 
52010 
Seeee 
52040 
52050 
52060 
52070 
52080 
32090 
52100 
52118 
52120 
52138 
52140 
53000 
53010 
53020 
53098 


28 


REM ##% HOME «xt 
REM 
LET XJ=O:LET YJ=0 


IF USR(E7>=1 THEN GOSUB 51@5@:GOTO 49050 
IF USR(E7)=@ THEN GOSUB 58858:GOTO 49060 
IF USR(ES)=1 THEN GOSUB 53858:GOTO 48070 
IF USR(ES)=@ THEN GOSUB 52058:GOTO 49980 


LET XM=680: YM=500 

LET XH=9: YH=@:xS=1:YS=1 

LET XOUT=0: YOUT=0 

RETURN 

REM 

REM *** +X-MOVEMENT 44% 

REM 

LET XJ=xXJ+1 

IF XOUT THEN RETURN 

SYS M1,CC:SYS M2,CWISYS M3,CW 
GOSUB 60000:REM x4#* ET 777 #ee 
SYS m1,CC:SYS me,CC:SYS M3,CW 
GOSUB 6OOOO:REM xe ET 777 44e¥ 
SYS M1,CW:SYS Me,CC:SYS M3,CW 


GOSUB 60000:REM *4*% ET 777 £48 
SYS M1,CWISYS Me,CW:SYS M3,CW 
GOSUB 60@O0:REM #8 ET 777 44% 
RETURN 

REM 

REM *#** -X-MOVEMENT 44% 

REM 

LET XJ=xJ-1 

IF XOUT THEN RETURN 

SYS M1,CW:SYS Me,CC:SYS M3,CW 
GOSUB 60000:REM ##8 ET 777 4488 
SYS mM1,CC:SYS me,CC:SYS M3,CW 
GOSUB 60@00:REM ##*# ET 777 488% 
SYS M1,CC?SYS me,CW:SYS M3,CW 
GOSUB 6008@0:REM ee* ET 777 448% 
SYS M1,CWISYS Me,CWISYS M3,CW 
GOSUB 6O@00:REM #e¥ ET 777 448 
RETURN 

REM 

REM ##* +Y-MOVEMENT 44% 

REM 

LET YJ=YJ+1 


IF YOUT THEN RETURN 

SYS M1,CC:SYS mMe,CW:SYS M3,CW 
GOSUB 60@00:REM #8 ET 777 £4 
SYS m1,CC:SYS me,CW:SYS M3,CC 
GOSUB 60@0O:REM ##" ET 777 £48 
SYS M1,CW:SYS Me,CW:SYS M3,CC 


GOSUB 6@@00:REM #48 ET 777 a8 
SYS M1,CWISYS Me,CW:SYS M3,CW 
GOSUB 60000:REM t#8 ET 777 #42 
RETURN 

REM 

REM ##% -Y-MOVEMENT t4% 

REM 


LET YJ=YJ-1 
IF YOUT THEN RETURN 


53058 SYS M1,CWISYS M2,CW:SYS M3,CC 
53060 GOSUB 60000:REM *** ET 777 #48 
530708 SYS M1,CC:SYS mM2,CW:SYS M3,CC 
53080 GOSUB 6000@:REM #4 ET 777 #44 
53098 SYS M1,CC:SYS Me,CW:SYS M3,ClI 
53108 GOSUB 68000:REM #44 ET 777 44% 
53118 SYS M1,CW:SYS M2,CW:SYS M3,CW 
53129 GOSUB 68080:REM #44 ET 777 #48 
53130 RETURN 

53140 REM 

60000 REM **#* LIMIT SWITCH CLOSED #4 
68019 REM 

60020 IF CUSRCE7)=8 AND XJ<>@) OR CUSR(ES8)=8 AND Y 


J<>@) THEN GOTO 628040 


68030 RETURN 
60040 PRINT CHRS(147)7CHR#(18)"CAUTION! SCANNER IS 


N'T ADJUSTED" +CHRS( 146) 


60050 STOP 


Prog.B&W 


1900 
1018 
1920 
1930 
194928 
1959 
1060 
1970 
1080 


10390 
1100 
1110 
1120 


1130 
1140 
1150 
1160 
1170 


1180 
1190 


REM FISCHERTECHNIK COMPUTING 

REM 

REM PICTURE EVALUATION 

REM PROGRAM B&W 

REM 

REM THIS PROGRAM NEEDS 

REM >SIMONS BASIC< ! 

REM 

REM COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 198 
=] 

REM 

REM FUNCTION DESCRIPTION: 

REM THE PROGRAM SEPARATES THE GREY TONES 

REM WHICH WERE RECORDED BY THE PROGRAM '‘SCANN 
ER'. 

REM YOU CAN DEFINE THE THRESHOLD BETWEEN 

REM BLACK AND WHITE. 

REM THE DATA IS READ FROM DISK. 

LET E=8 REM FLOPPY DISK 

REM FOR CASSETTE: LET E=1 AND DELETE THE LINE 
NUMBERS 1239, 

REM 12790, 1298, 1388 AND 1639-1670 

PRINT CHRSC147) 


HRM HH 


* 


1200 
1210 
1215 
1220 
1230 
1240 
1259 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1378 
1380 
1390 
1400 
1418 
1420 
1430 
1440 
14508 
1460 
1470 
1480 
1998 
1500 
1510 
1520 
1538 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1618 
1620 
1630 
1640 
1650 
1660 
1670 


PRINT"F ISCHERTECHNIK ”" 

PRINT "COMPUT ING* 

PRINT:PRINT"PROGRAM NEEDS ‘'SIMONS BASIC'" 
PRINT 

DIR": *=S" :REM DIRECTORY 

PRINT:PRINT 

INPUT "FILENAME ";FS 

IF F$="" THEN END 

OPEN 15,8,15 

OPEN 1,£,2,F$+",R” 

INPUT#15,FF ,FBS 

IF FF>@ THEN GOTO 1640 

INPUT#1,XE *REM BORDER OF THE PICTURE 
INPUT#1,YE 

INPUT#1,GH *REM MIN AND MAX OF BRIGHTNESS 
INPUT#1 ,GL 

REM ASK FOR THRESHOLD 
PRINT:PRINT" THRESHOLD BE TWEE! 
INPUT GI 

IF GW<GL OR GW>GH THEN GOTO 13690 
PRINT?PRINT"WHEN THE PICTURE IS DRAWN YOU CAN 
PRINT“LEAVE THE PROGRAM HITTING ANY KEY !" 
FOR 2=9 TO 10900 

REM DELAY LOOP 

NEXT Z 

REM SWITCH ON HIRES GRAPHIC 

HIRES 8,1 

FOR Y=@ TO YE 

FOR X=9 TO XE 

LET X1=24x 

LET X2@=xX1+1 

LET Y1=199-2*YEt2*Y-2 

LET Ye=Yitl 

INPUT#1,G% 

REM DRAW BLOCK 

IF G%>=GW THEN BLOCK X1,Y1,xX2,Y2,1 

NEXT X 

NEXT Y 

CLOSE 1 

REM SCAN KEYBOARD FOR END OF PROGRAM 

GET S# 

IF S$="" THEN GOTO 1598 

PRINT CHR#(147) 

END 

REM ERROR MESSAGE 

PRINT"DISK ERROR: "FBS 

CLOSE 1 

CLOSE 15 

END 


"?GLe" AND “"FGH 


RNR RHR HH 


pete 


6 ee ——————— 


Prog. D.PIC 


1990 
1010 
1920 
1939 
1040 
1059 
1868 
1070 
10380 


1090 
1198 
1110 
1128 


1130 
1140 


1150 


1160 
1178 
1180 
1198 
1200 
1210 


1220 
1230 
1240 
1250 
1260 
1265 
1267 
1278 
1289 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1388 
1390 
1400 
1410 
1420 
1430 
1440 


1450 


REM FISCHERTECHNIK COMPUTING 

REM 

REM PICTURE EVALUATION 

REM PROGRAM 0.PIC 

REM 

REM THIS PROGRAM NEEDS 

REM >SIMONS BASIC< ! 

REM 

REM COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 198 

5 : 

REM 

REM FUNCTION 

REM THE PROGRAM SEPARATES THE GREY TONES 

REM WHICH WERE RECORDED BY THE PROGRAM 'SCAN 

NER'. 

REM YOU CAN DEFINE THE THRESHOLD BETWEEN 

REM BLACK AND LKHITE AND THE GRAPHIC RESOLUTIO 

N. 

REM THE SIZE OF THE PICTURE CAN BE ADJUSTED, 

so 

REM THAT IT FITS ON THE WHOLE SCREEN. 

REM THE DATA IS READ FROM DISK. 

REM DATA OF THE PICTURE 

DIM wx%c159,3) 

LET E=8 !REM FLOPPY DISK 

REM FOR CASSETTE: LET E=1 AND DELETE THE LINE 
NUMBERS 1270, 
REM 1310, 1339, 
PRINT CHR#¢147) 
PRINT"F ISCHERTECHNIK" 


1340, 1830 UND 1898-1930 . 


PRINT "COMPUT ING * 

PRINT 

PRINT"PROGRAM NEEDS 'SIMONS BASIC'" 
PRINT 

DIR"$:4#=S" :REM DIRECTORY 


PRINT:PRINT 

INPUT "FILENAME"; F% 

IF F#=""* THEN END 

OPEN 15,8,15 

OPEN 1,£,2,F$+",R" 

INPUT#15 ,FF ,FBS 

IF FF>@ THEN GOTO 19900 % 
INPUT#1,XE *REM BORDER OF THE PICTURE 
INPUT#1L YE 

INPUT#1,GH =REM MIN AND MAX OF BRIGHTNESS 
INPUT#1,GL 

REM ASK FOR THRESHOLD 
PRINT?PRINT" THRESHOLD BETWEEN 
INPUT GW 

IF GW<GL OR GW>GH THEN GOTO 1408 

PRINT: INPUT”"RESOLUTION X-AXIS (40/88/1608) ";7AX 
IF AX¢>4@ AND AK<>8@ AND AX<>16@ THEN GOTO 14 
30 

PRINT: INPUT"RESOLUTION Y-AXIS (25/50/100) "FAY 


"7GL;" AND ";GH 


* 


——eeeeeeaeaoooar_aaeE 


1969 


1470 
1480 
1499 


1500 
1510 
1520 
1530 
1540 
1550 
1560 
15798 
1589 
1590 
1600 
1616 
1620 
1630 
1649 
1659 
1669 
1670 
1680 
1690 
1700 
1719 
1720 
1730 
1740 
1750 
1760 
1778 
17388 
1790 
1800 
18190 
1828 
1830 
1840 
1850 
1360 
1870 
1380 
1890 
13900 
1910 
1920 
1930 


IF AY<>25 AND AY<>5@ AND AY<>10@ THEN GOTO 14 
5o 

LET AX=160/AKSAY=180/AY 

PRINT! INPUT"OPTIMIZE PICTURE ¢Y/N)";OPTS 
PRINT!PRINT"WHEN THE PICTURE IS DRAWN YOU CAN 
PRINT“LEAVE THE PROGRAM HITTING ANY KEY!" 

FOR Z=8 TO 1900 

REM DELAY LOOP 

NEXT Z 

IF OPT$S="N" THEN LET R=2:GOTO 1600 

LET RX=INT¢(160/XE) 

LET RY=INT¢(100/YE) 

IF RXORY THEN LET R=2#RY:GOTO 1600 

LET R=2*RX 
REM SWITCH 
HIRES @,1 
FOR Y=8 TO 
FOR Z=9 TO AY-1 
FOR X=@ TO XE 
INPUT#1 , WACK ,Z 
NEXT 

NEXT Z 


ON HIRES GRAPHIC 


YE STEP AY 


TO XE STEP AX 


TO AY-1 

FOR U=@.TO AX-1 

GA=GATWKCK+U,Z) 

NEXT U 

NEXT Z 

LET X1=Rex 

LET X@=K1+R*AX-1 

LET Y1=199-R*YE+R#Y-R*AY 

LET Y2=Y1+R*eAY-1 

REM DRAW BLOCK 

IF GX/CAX*AY) >=GHI THEN BLOCK X1,71,X2@,Y2,1 
NEXT 

NEXT Y 

CLOSE 1 

CLOSE 15 

REM SCAN KEYBOARD FOR END OF PROGRAM 
GET S# 


IF S$="" THEN GOTO 1850 
PRINT CHR#¢(147) 

END 

REM ERROR MESSAGE 
PRINT"DISK ERROR: "FBS 
CLOSE 1 

CLOSE 15 

END 


ed 


* 


Prog. COLOR 


1998 
1918 
1920 
1630 
1940 
1950 
1660 
1970 
19808 


1998 
1180 
1110 
1120 


1139 
1140 


1150 


1160 
1170 


1189 
11998 
1200 
1210 
1220 


1230 
1240 
1250 
1268 
1265 
1278 
1280 
1290 
1300 
1318 
1320 
1330 
1340 
1350 
1369 
1370 
1389 
1390 
1400 
1418 


1420 
1430 
1440 


REM FISCHERTECHNIK COMPUTING 

REM 

REM PICTURE EVALUATION 

REM PROGRAM COLOUR 

REM 

REM THIS PROGRAM NEEDS 

REM >SIMONS BASIC< ! 

REM 

REM COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1998 
5 ' 

REM 

REM FUNCTION 

REM THE PROGRAM SEPARATES THE GREY TONES 
REM WHICH WERE RECORDED BY THE PROGRAM 'SCAN 
NER’. 

REM YOU CAN DEFINE THE THRESHOLD BETWEEN 
REM DIFFERENT COLOURS ANO THE GRAPHIC RESOLU 
TION. 

REM THE SIZE OF THE PICTURE CAN BE ADJUSTED, 
so 

REM THAT IT FITS ON THE WHOLE SCREEN. 

REM THE GREY TONES ARE DISPLAYED AS COLOURS 
REM THE DATA IS READ FROM DISK 

REM DATA OF THE PICTURE 

DIM WAC159,3) 

LET E=8 *REM FLOPPY DISK 

REM FOR CASSETTE: LET E=1 AND DELETE LINE NUM 
BER 1230, 

REM 1320, 1349, 1350, 2078 UND 2130-2170 
PRINT. CHR#¢147) 

PRINT"F ISCHERTECHNIK" 

PRINT"COMPUT ING" 

PRINT? PRINT"PROGRAM NEEDS 'SIMONS BASIC'" 
PRINT 

DIR"$:*=S" :REM DIRECTORY 

PRINT?PRINT 

INPUT "FILENAME"; Fs 

IF F#="" THEN ENO 

OPEN 15,8,15 

OPEN 1,£,2,F$+",R" 

INPUT#15,FF ,FBS 

IF FF>®@ THEN GOTO 2148 

INPUT#1,XE *REM BORDER OF THE PICTURE 
INPUT#1 , YE 

INPUT#1,GH *REM MIN AND MAX OF BRIGHTNESS 
INPUT#1,GL 

REM ASK FOR THRESHOLD 


PRINT CHR#$¢ 147): INPUT"HOW MANY COLOURS (2-4)" 
7FA 

IF FAC2 OR FAD4 THEN GOTO 1410 

PRINT:PRINT" THRESHOLD BETWEEN ";GL;" AND "GH 
REM DISPLAY ALL AVAILABLE COLOURS AT THE BO 
TTOM OF THE SCREEN 


29 


RM HOH 


* 


1950 
1960 
1470 
1480 
1499 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1638 


1640 
1650 


1660 
1670 
1680 


1699 
1700 
1710 
1720 
1730 
1740 
1750 
1766 
1778 
1780 


1790 
1800 
1810 
1820 
1830 
1849 
1850 
1860 
1870 
1880 
1390 
1900 
1918 
1920 
1930 
1940 
1950 
1960 
1970 
19380 
1999 


30 


FOR F=@ TO 15 

LET C1=160:C2=176+F 

IF F>S9 THEN LET C1=177:C2=166+F 

POKE 1984+24F,C1 

POKE 1985+2«F ,Ce 

POKE S56256+2¢F ,F 

POKE S56257+24F ,F 

NEXT F 

INPUT"BACKGROUND COLOUR";FR(O> 

FOR F=1 TO FA-1 

INPUT “THRESHOLD "7 GWICF > 

IF GW(F>¢GL OR GWCF)>GH THEN GOTO 1552 
INPUT"CORRESPONDING COLOUR"; FR(F) 

NEXT F 

FOR F=0 TO 31 

POKE 1984+F ,32 

NEXT F 

PRINT?! INPUT"RESOLUTION X-AXIS (40/80/1680 

IF AX<>48 AND AX<>8@ AND AX¢>16@ THEN GOTO 16 
20 

PRINT: INPUT"RESOLUTION Y-AXIS (25/50/100)"7AY 
IF AY<>25 AND AY<>5@ AND AY<>10@ THEN GOTO 16 
40 

LET AX=160/AXK:AY=100/AY 

PRINT! INPUT"OPTIMIZE PICTURE (Y/N) "7OPTS 
PRINT: PRINT"WHEN THE PICTURE IS DRAWN YOU CAN 
” 

PRINT“LEAVE THE PROGRAM HITTING ANY KEY!" 

FOR Z=0 TO 1900 

REM DELAY LOOP 


NEXT Z 
IF OPT#="N" THEN LET R=2:GOTO 1798 
LET RX=INTC160/XE) 


LET RY=INTC1O00/YE) 

IF RX>RY THEN LET R=2*RY:GOTO 1790 
LET R=2*RX 

REM SWITCH ON HIRES GRAPHIC AND DEFINE BACKGR 
OUND COLOURS 

POKE 53281 ,FR(@> 

POKE 5328@,FR(@>) 

HIRES @,FR(@) 

MULTI FR(1),FR(2),FR(3) 
FOR Y=@ TO YE STEP AY 
FOR Z=8@ TO AY-1 

FOR X=@ TO XE 

INPUT#1 WACK ,Z 

NEXT X 

NEXT Z 

FOR X=@ TO XE STEP AX 
LET Gx=0 

FOR Z=@ TO AY-1 

FOR U=@ TO AX-1 
GA=GAtWACKtU,Z) 

NEXT U 

NEXT Z 

LET X1L=R*xX/2 

LET X2=X1+R*AX/2-1 

LET Y1=199-R*YEtR#Y-R*AY 
LET Ye=Y1+R#¥AY-1 


* 


20600 REM DRAW BLOCK 
2010 FOR F=1 TO FA-1 


2020 


IF GA/CAX*AY) >=GUICF) THEN BLOCK X1,Y1,X2,Y2, 
F 


2030 NEXT F 

2040 NEXT X 

2050 NEXT Y 

206@ CLOSE 1 

2970 CLOSE 15 

2080 REM SCAN KEYBOARD FOR END OF PROGRAM 
2098 GET S* 


2100 


IF S#="" THEN GOTO 2930 


211@ PRINT CHR$‘( 147) 
2128 ENO 
2130 REM ERROR MESSAGE 


2140 PRINT"DISK ERROR: 


"FBS 


2150 CLOSE 1 
216@ CLOSE 15 
2170 ENO 


Prog. PATTERN 


500 
510 
520 
530 
540 
550 
5608 
5728 
530 
5390 
6008 
618 
620 
630 
640 
650 
660 
670 
6380 
6398 
708 


SYS INIT 

REM PLOTTER COMMANDS: 

REM 40000 HOME 

REM PLOTTER MOVEMENTS: 

REM 50000 +xX-STEP 

REM 51000 -xX-STEP 

REM 52000 +Y-STEP 

REM 53000 -Y-STEP 

REM 54000 +X/+Y-STEP 

REM 55000 +X/-Y-STEP 

REM 56000 -X/+Y-STEP 

REM 57800 -xX/-Y-STEP 

REM 68000 LIMIT SWITCH ? 

REM 61008 OUT OF RANGE 7 

PRINT CHR#( 147) +CHR#(5) 

POKE 53280,0: REM WHITE LETTERS ON 
POKE 53281,0: REM BLACK BACKGROUND 
PRINT"F ISCHERTECHNIK " 
PRINT"COMPUTING" 

PRINT 

PRINT">> SCANNER INITIALISATION" 


718 GOSUB49008 =:REM HOME 

720 REM 

1909 REM FISCHERTECHNIK COMPUTING 

1018 REM 

1920 REM PROGRAM PATTERN 

103@ REM 

1940 REM COPYRIGHT ‘C) ARTUR FISCHER FORSCHUNG 198 


1950 
1960 
1070 
1080 
1999 
1108 
1119 


1120 
1138 
11490 
1150 


1160 
1170 
1180 
1190 
1209 
1210 
1220 
1230 
1248 
1250 
1260 
1270 
1280 
1299 
1300 
1318 
1328 
1330 
1348 
1350 
1355 
1368 
1370 
1380 
1398 
14990 
1410 
1420 
1438 
1449 
14959 


1460 
1470 
1480 
1498 
1500 
1518 


REM FUNCTION DESCRIPTION: 

REM PATTERN RECOGNITION 

REM IN THE FIRST RUN THE SCANNER SCANS 
REM A CIRCLE (BLACK ON WHITE >. 


REM IN FURTHER RUNS THE PROGRAM CAN RECOGNIZE 
REM IDENTICAL, SHIFTED AND BIGGER OR SMALLER 
CIRCLES. 

REM 

DIM K%(1008),Y%¢ 1998) 


REM MEASURE REFERENCE CIRCLE 
PRINT"PLEASE PUT REFERENCE CIRCLE IN 
THE SCANNER" 


LET RF=1 REM REFERENCE CIRCLE FLAG 
PRINT" >RETURN¢C, WHEN YOU ARE READY." 
GET AS 


IF AS<>CHR#(13) THEN GOTO 1180 
GOSUB 2000: REM PATTERN REGOGNITION 
IF RF=® THEN GOTO 1290 

LET XR=KC 

LET YR=YC 

LET RR=RM 

LET RF=0 

GOTO 1518 

REM ANALYSIS DATA 

REM POSITION OF THE CIRCLE 

LET L=1: REM FLAG-IDENTICAL CENTRE 
IF XC>XRt2 THEN LET L=0 

IF XC<XR-2@ THEN LET L=0 

IF YC>YR+2 THEN LET L=@ 

IF YC<YR-2 THEN LET L=@ 

LET R=1! REM FLAG-IDENTICAL RADIUS 
IF RMCRR-1 THEN LET R= 

IF RMORR+L THEN LET R=0 

PRINT">> ANALYSIS OF THE DATA :" 
IF R= OR L=@ THEN GOTO 14800 
PRINT" IDENTICAL CIRCLE !”* 

GOTO 15108 

IF L=@ THEN GOTO 1449 


PRINT" SAME POSITION, SIZE IN THE" 
PRINT” PROPORTION ";RM/RR 
GOTO 1510 


IF R=@ THEN GOTO 1480 


PRINT" SAME CIRCLE, BUT SHIFTED AS FOLLOWS: 
PRINT" ="7KC-KRe " alt Rr tet 4 | 

GOTO 1519 

PRINT" CIRCLE SHIFTED AND DIFFERENT SIZE” 
PRINT" SIZE PROPORTION "FRM/RR 


PRINT" ="7XKC 
GOSUB 490000 


“KRF" Y="3YC-YR 


1520 
1530 
15490 
1558 


1569 
1900 
1910 


1929 
1930 


1940 


1950 
2000 
2010 


2020 
2930 
2040 
2050 
2060 
2070 
20380 
2030 
2100 
2110 
2120 
2130 
2140 
2150 
2169 
2170 
2188 
2190 
2200 
2210 
e220 
2230 
22490 
e250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
e398 
2400 
2410 
2420 


PRINT >RETURNS * 

GET AS 

IF AS<>CHR#C13) THEN GOTO 15390 

PRINT CHR#¢C147); “PLEASE PUT CIRCLE IN SCANNER 
* 

GOTO 1170 

REM SUBROUTINE PATTERN RECOGITION 

REM THE SCANNER FOLLOWS THE BORDERLINE OF THE 
FIGURE 

REM AND CALCULATES THE CENTRE OF THE CIRCLE 
REM (APPROXIMATE CENTRE OF GRAVITY OF THE PAT 
H) 

REM THE RADIUS IS CALCULATED FROM THE DISTANC 
ES 

REM TO THE CENTRE. 

PRINT">> SEARCH LINE BY LINE <<" 

LET GL=255:GH=0: REM MIN AND MAX OF BRIGHTNES 


"READY FOR THE NEXT FIGUR. 


s 

LET GE=1@: REM THRESHOLD FOR BLACK 
GOSUB 4000: REM FORWARD 

IF GF THEN GOTO 2110 

GOSUB 6890: REM NEXT LINE 

GOSUB 5090: REM BACKWARD 

IF GF. THEN GOTO 2110 

GOSUB 6009: REM NEXT LINE 

GOTO 2030 

REM 


PRINT">> FIGUR IS FOUND!":PRINT 

LET Z=-1: REM COUNTER FOR POINTS OF THE PATH 
GOSUB 9900: REM STEPPERALGORITHM 

LET 2=Z+1: REM INCREMENT COUNTER 

LET X%¢<2)=xXJ/4:2 REM SAVE PATH 

LET YX%C(Z)=YI/4 

REM CHECK IF ENO OF PATH 
IF 2¢<2@ THEN GOTO 2130 

IF X%CZ)>K%C8) +2 THEN GOTO 
IF X%(29<%%(@)-2 THEN GOTO 
IF Y%CZ)>Y%C(8) +2 THEN GOTO 
IF Y%<29<Y4X(8)-2 THEN GOTO 2138 
PRINT:PRINT:PRINT">> FIGUR IS SCANNED!" 
PRINT">> EVALUATION ACTIV..." 

LET ZMAX=Z 

IF ZMAX<1@ THEN GOTO 3008: REM ERROR MESSAGE 
REM CALCULATE CENTRE OF CIRCLE 

PRINT">> CALCULATE CENTRE OF THE CIRCLE <<" 
LET xC=0:YC=0 

FOR Z=@ TO ZMAX 

LET XC=XC+KX%(2) 

LET YC=YC+Y%<(2) 

NEXT Z 

LET XC=XC/C(ZMAX+1)2 REM AVERAGE 

LET YC=YC/(2MAX+1): REM AVERAGE 

REM CALCULATE RADIUS OF THE CIRCLE 

PRINT">> CALCULATE RADIUS OF THE CIRCLE <<* 
LET RM=0 

FOR 2=@ TO ZMAX 

LET RM=RM+tSOR ( CXC -KACZ ) TAat+ CYOC-YHCZ))T2) 
NEXT Z 

LET RM=RM/C(ZMAX+1)¢ 


2130 
2130 
2138 


REM AVERAGE 


2430 
2440 
2458 
2460 
2970 
2480 
3000 
3010 
3020 
4000 
4010 
4020 
49930 
4040 
4050 
4060 
4070 
4080 
4030 
4100 
4110 
4120 
5000 
5010 
5020 
5030 
5040 
5950 
5260 
5070 
5080 
5a90 
5100 
5110 
5120 
6000 
6010 
6020 
6030 
6040 
6050 
72900 
7010 
7020 
7030 
7940 
7a50 
7260 
7070 
7080 
83000 
8010 
8020 
8030 


8040 
8050 


REM FINAL RESULTS 
PRINT">> FINAL RESULTS:” 
PRINT" CENTRE (X,Y): "3 
PRINT XC,YC 

PRINT" RADIUS R: 
RETURN 

REM ERROR MESSAGE 
PRINT"NOT ENOUGH POINTS OF THE PATH! * 
END 

REM FORWARD 

LET S=2: REM OIRECTION EAST 

FOR X=8@ TO XM/4-1 

FOR Z=1 TO 4 
GOSUB 50000: 
NEXT Z 

GOSUB 7000: REM MEASURE GREY VALUE 
IF G<GL THEN GL=G: REM ADJUST MIN 
LET GF=(G>GLtGE): REM THRESHOLD 

IF GF THEN RETURN 

NEXT X 

RETURN 

REM 

REM BACKWARD 

LET S=6: REM OIRECTION WEST 

FOR X=xXM/4-1 TO @ STEP -1 

FOR Z=1 TO 4 

GOSUB 51800: REM -x 

NEXT Z 

GOSUB 7000: REM MEASURE GREY TONE 
IF GCGL THEN GL=G: REM ADJUST MIN 
LET GF=(G>GL+GE): REM THRESHOLOD 
IF GF THEN RETURN 

NEXT X 

RETURN 

REM 

REM ONE LINE UP 

FOR Z=1 TO 4 

GOSUB 52000: REM +Y 

NEXT Z 

RETURN 

REM 

REM MEASURE GREY TONE 

SYS INIT: REM ALL MOTORS OFF 

FOR T=® TO 20 

SYS M4,CW: REM LAMPE ON, 
NEXT T 

G=USRCEY) 

SYS M4,0FF 

RETURN 

REM 
REM 
REM 
REM 
REM 
HM 
REM 
REM WHITE POINT -> TURN 45 DEGREES WEST, 
ONE STEP FORWARD 


"7 RM 


REM +X 


WAIT 


SUBROUTINE TO FOLLOW THE BORDERLINE 


THIS SUBROUTINE DRIVES THE SCANNER 


ALONG THE BORDERLINE BY FOLLOWING ALGORIT 


MOVE 


see 


x 


8e80 


3030 
8120 
8130 
81490 


81508 
8168 
9000 
93010 
9020 
9830 
9040 
93058 
9060 
9070 
9080 
90398 
9100 
3110 
9120 
9130 
9140 
9158 
9160 
9170 
9180 
9198 


3200 

93210 

3220 

3230 

9240 

40000 
90010 
49030 
40050 
40060 
42079 
40080 
40108 
40110 
901208 
40138 
490140 
50000 
59010 
50020 
59059 
Soa06a 
50070 
Soose 
Sease8 
59100 
59119 
50120 


REM BLACK POINT -> TURN 45 DEGREES EAST, MOVE 
ONE STEP TO THE RIGHT 

REM 

REM SOURCE: 

REM JOHN BILLINGSLEY 

REM ROBOTICS AND SENSORS ON THE COMMODORE COM 

PUTER. 

REM SUNSHINE BOOKS LONDON 

REM 

REM ALGORITHM - FOLLOW BORDERL INE 

GOSUB 7900: REM MEASURE GREY VALUE 

IF G<GL THEN LET GL=G: REM ADJUST MIN 

IF G>GH THEN LET GH=G: REM ADJUST MAX 

GS=(GL+GH)*0.5: REM TRESHOLD = AVERAGE 

IF G>GS THEN LET R=Rt1:S=R+2?L=O:H=Htl 

IF G¢=GS THEN LET R=R-1!'S=RtH=O:L=Ltl 

REM DETERMINE IF SCANNER STILL PROCEEDS. 

IF L>15 THEN GOTO 9220 

IF H>15 THEN GOTO 9229 

REM DIRECTIONS IN THE RANGE @ - 7 

IF S>7 THEN LET S=S-8 

IF S<@ THEN LET S=S+t3 

IF R>? THEN LET R=R-8 

IF R<@ THEN LET R=Rt3 

IF G>GS THEN PRINT” "7 

IF G¢=GS THEN PRINTCHRS¢( 18); " 

REM 4 STEPS IN DIRECTION S 

FOR T=1 TO 4 

ON St1 GOSUB 52000 ,54000 ,50000 ,55009 ,53000,57 

900 ,51900 ,56000 

NEXT T 

RETURN 

REM LOST BORDERLINE 

PRINT“SCANNER LOST BORDERLINE !* 

END 
REM 
REM 
LET XJ=O:LET 
IF USRCE7)=1 
IF USR(E7)=0 
IF USR(ES)=1 THEN GOSUB 
IF USR(E8)=8 THEN GOSUB 
LET XM=680: YM=500 


"3 CHRS( 146); 


x** HOME xe 


YJ=a 
THEN GOSUB 
THEN GOSUB 


5105@:GOTO 49050 
500@50:GOTO 40060 
53050:GOTO 49070 
52050:GOTO 490380 


LET XH=8: YH=0:XS=1:YS=1 
LET XOUT=@: YOUT=0 
RETURN 

REM 

REM *#* +X-MOVEMENT #48 
REM 


LET XJ=xXJ+1 

SYS MI1,CC?SYS me,CW:SYS M3,CW 
GOSUB 60000:REM *#* ET 777 #e* 
SYS M1,CC:SYS M2,CC:SYS m3,CW 
GOSUB S@080:REM *#* ET 777 #8* 
SYS M1,CW:SYS M2,CC:SYS M3,CW 
GOSUB 6@0@0:REM eae ET 777 ¥e8 
SYS M1,CWZSYS M2,CW:SYS M3,CW 
GOSUB 68000:REM *4#* ET 2777 *e* 


31 


50130 
50140 
51000 
51010 
51020 
51058 
51060 
519708 
519890 
51099 
51100 
51110 
51120 
51130 
51140 
52000 
520190 
Se020 
52050 
52060 
52070 
52080 
520390 
521008 
52110 
52120 
52130 
52140 
53000 
53010 
53020 
53050 
53060 
53070 
53080 
530390 
53100 
53110 
53120 
53130 
53140 
54000 
54010 
54050 
54060 
54070 
54080 
540390 
54100 
54110 
54120 
55000 
55010 
55050 
55060 
55070 
55080 
550390 
55100 


32 


RETURN 

REM 

REM *#* -X-MOVEMENT 44% 

REM 

LET XJ=xXJ-1 

SYS M1,CW:SYS M2,CC:SYS M3,CW 
GOSUB 60000:REM «4#*% ET 777 8 
SYS M1,CC:SYS M2,CC:SYS M3,CW 
GOSUB 60000:REM *#* ET 777 *e8 
SYS M1,CC:SYS M2,CWSYS M3,CW 
GOSUB 6Q000:REM eee ET 777 *4* 
SYS M1,CWISYS M2,CW:SYS M3,CW 
GOSUB 6O000:REM x¥* ET 777 4e* 
RETURN 

REM 

REM #** +Y-MOVEMENT #x* 

REM 

LET YJ=YJ+t1 

SYS M1,CC:SYS Me,CWiSYS M3,CW 
GOSUB 60000:REM «#* ET 777 *4* 
SYS M1L,CC:SYS M2,CW:SYS M3,CC 
GOSUB 60000:REM x#* ET 777 «4% 
SYS M1,CWISYS Me,CW:SYS M3,CC 
GOSUB 60000:REM ##* ET 777 xe 
SYS ML,CWISYS Me,CWISYS M3,CW 
GOSUB 60000:REM eee ET 777 #4* 
RETURN 

REM 

REM *#% -Y-MOVEMENT 24% 

REM 

LET YJ=YJ-1 

SYS M1,CW:SYS M2,CW:SYS M3,CC 
GOSUB 60000:REM «#* ET 777 *a% 
SYS M1,CC:SYS M2,CW:SYS M3,CC 


GOSUB 60@00:REM «#* ET 777 xe 


SYS M1,CC:SYS m2,CW:SYS M3,CW 
GOSUB 6Q000:REM #xx ET 777 448 
SYS M1,CWISYS M2,CW:SYS M3,Cld 
GOSUB 6@@00:REM #2x ET 277 x48 
RETURN 

REM 

REM 48% +X/+Y-DIAGONAL ¥4%% 
XJ=XI+12YI=YI+1 
SYSM1,CC?SYSM2 ,CW: SYSM3 ,ClI 
GOSUBBOBO:REM *¥x ET 2777 x48 
SYSML,CC:SYSM2 ,CC:SYSM3 ,CC 
GOSUBGQ@0:REM #4#x ET 227 44% 
SYSM1 ,ClW? SYSM2 ,CC:SYSM3 ,CC 
GOSUBGQQ00:REM x#x ET 277 4Kx 
SYSM1 ,Cld? SYSM2 , Clu: SYSM3 ,CWI 
RETURN ¢ 
REM x4 +X/-Y-DIAGONAL #x* 
XJSKItLEYS=YI-1 

SYSM1 ,Clt SYSM2 , Cl: SYSM3 ,CC 
GOSUBGQ@00:REM xex ET 777 42% 
SYSM1 ,CC:SYSM2 ,CW: SYSM3 ,CC 
GOSUBGQQ00:REM x4 ET 777 44% 
SYSM1 ,CC:SYSM2 ,CC:SYSM3 ,Cld 
GOSUBGQ@00:REM #ex ET 7277 44% 


55110 
55120 
55130 
551490 
56000 
56019 
56050 
56060 
56070 
560808 
560390 
56100 
56110 
56120 
56130 
56140 
57000 
570190 
57050 
57060 
57070 
57030 
S7a30 
571008 
57110 
57120 
60000 
60010 


60020 


68030 PRINT CHR#(147)7CHR#(18) "WARNING PLOTTER ISN 


60040 


SYSM1 ,CW:SyYSme ,CC:SYSM3 ,CW 
GOSUBG0000:REM #44 ET 777 #88 
SYSM1 ,CW:SYSMe ,CW:SYSM3 ,CW 
RETURN 

REM *x*#* -X/+Y-DIAGONAL *#4#% 
XJSKI-1L2YJ=Y¥I+1 

SYSM1 ,CW:SYSM2 ,CC:SYSM3 ,CW 
GOSUB6@000:REM ##* ET 777 £2% 
Sysm1 ,cC:sysme ,CC:SYSm3,CW 
GOSUBGG@090:REM eee ET 277 #88 
SYSM1 ,CC:Sysme ,CW:SYSm3 ,CC 
GOSUBGOO0O:REM xxx ET 2777 £4” 
SYSM1 ,CW:SYSMe ,CW:SYSM3 ,CC 
GOSUBGG@O8O:REM kee ET 777? Kex 
SYSM1,CWISYSMe ,CW:SYSM3 ,CW 
RETURN 

REM *** -X/-Y-DIAGONAL *#** 
XJ=SXJ-12YJ=YJI-1 

SYSM1 ,CW: SYSme ,CC:SYSM3 ,CC 
GOSUB6Q000:REM ##* ET 777 *8% 
sysmi ,cC:sysme ,CC:SyYsm3 ,CC 
GOSUBGO088:REM eee ET 777 #4% 
SYSM1,CC:Sysme ,CW:SYSM3 ,CW 
GOSUB6O000:REM *4% ET 777 eae 
SYSM1 ,CW: SYSM2 ,CW: SYSM3 ,Cld 
RETURN 


REM *** FINAL SWITCH CLOSED **#* 
IF CUSRCE7 >) =9ANDXJ< >@ )OR CUSR (ES) =@ANDYJ< >@)TH 


ENGOTO60030 
RETURN 


'T ADJUSTED"? CHR#( 146) 
STOP 


39462 11.86 ZE 


